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ABSTRACT 


The United. States lunar laser ranging program utilizes two observatories, one 
of which is atop Haleakala on the island of Maui, Hawaii The Hawaii Institute of 
Geophysics has implemented a comprehensive geodetic-geophysical support program to 
monitor local and regional crustal deformation on the island of Mam The program 
includes repeated geodetic laser surveys between the LURE Observatory and an island- 
wide and inter-island networks, gravimetric surveys and first order levelling, also 
ocean tide gages, tiltmeters for monitoring tbe local vertical, and seismic surveil- 
lance of crustal activity, (Carter et al , 1977, Berg and Sutton, 1977) 

This report describes the results of the first high-precision electronic dis- 
tance measurements accomplished in the support program, the instrumentation used 
and instrument modifications, the procedures adapted, and the atmospheric conditions 
that preclude standard methods on long lines through an inversion layer 

We aimed at an overall distance accuracy of 1 part in 10 7 for the individual 
lines This objective is reflected in the discussions and calibrations of tbe Range- 
master II, the laser distance measuring instrument used, the barometers and thermometers 
used to obtain atmospheric data on the ground and m the air by helicopter to determine 
the refractive index, and finally, in the calculation procedures 

The report presents the actual laser-measured line lengths and new coordinate 
carp ut at ions of the line terminals, and discusses the internal consistency of the 
measured line lengths Several spacial chord lengths have been reduced to a Mercator 
plane, and conditional adjustments on that plane have been made 

The report also compares the old Hawaiian data and the new measurements, and 
discusses the relative merits of the direct integration versus modeling approach 
to obtain the mean refractive index along a laser line 
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I INTRODUCTION 


Background 

Space age tools now push errors of positioning a point in an earth- 
wide reference system from the decimeter toward the centimeter level 
Resulting accuracies permit application of these tools to such esoteric 
problems as tectonic plate motion and (geologically) short-term 
dynamic interaction between areas of crustal generation and absorption 
by measurements of crustal deformation over short to very large 
baselines as a function of time These changes also can be related 
by the same techniques to variations in the position of the earth's 
pole of rotation and variations in the rotation rate 

One of the most accurate techniques uses laser ranging from fixed 
observatories on earth to the retroreflectors installed by astronauts 
on the moon One of two United States observatories is operating at 
Haleakala on the island of Maui, Hawaii, situated on the Pacific plate 
The position changes with time of the lunar laser ranging station 
will include components of local and regional crustal deformation and 
tectonic plate motion Therefore, terrestrial geodetic and geophysical 
methods appear to be the most economical approach to determination of 
local and regional deformation, that have to be separated from the 
observatory position measurements relative to the moon or artificial 
satellites in order to ascertain the larger scale motions 

The University of Hawaii's Institute for Astronomy has constructed 
and is operating the lunar laser ranging observatory at Wt Haleakala 
at an elevation of 3000 m The site was selected for its separation 
from the other U S lunar laser ranging site at MacDonald, Texas (on 
the North American tectonic plate) providing reasonable separation 
for polar motion studies and an opportunity to verify and measure any 
plate motion The Hawaii Institute of Geophysics of the University 
of Hawaii is implementing a comprehensive geodetic-geophysical support 
program to monitor local and regional crustal deformation on the island 
of Maui The program includes repeated geodetic laser survery between the 
LURE Observatory and an island-wide and inter-island networks, gravimetric 
surveys and first order levelling, also ocean tide gages, tiltmeters 
for monitoring the local vertical, and seismic surveillance of crustal 
activity, (Carter et al , 1977, Berg and Sutton, 1977) 

This report describes m detail the results of the first mgh- 
precision electronic distance measurements accomplished in the support 
program, the instrumentation used, together with modifications, the 
procedures adapted, and the particular atmospheric conditions that 
seem to preclude more standard methods on long lines through an 
inversion layer The task of measuring the crustal deformation is 
particularly difficult because of the convex topography of Haleakala, 
precluding the use of "shooting" simple radial patterns to determine 
the strain ellipsoid 
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We aimed at an overall distance accuracy of 1 part m 10 for the 
individual lines This objective is reflected in the discussions and 
calibrations of the Rangemaster II, the laser distance measuring 
instrument used, the barometers and thermometers used to obtain atmos- 
pheric data on the ground and in the air by helicopter to determine 
the refractive index and finally in the calculation procedures 

Subsequent chapters present the actual laser-measured line lengths and 
new coordinate computations of the line terminals, and probe the internal 
consistency of the measured line lengths The reduction of several 
spacial chord lengths to a Mercator plane and subsequent conditional 



adjustments on that plane have been executed 


Another chapter is devoted to the comparison of the old Hawaiian 
data (partially dating back to 1876) and the new measurements presented 
here The final chapter discusses the relative merits of the direct 
integration versus modeling approach to obtain the mean refractive 
index along a laser line 


Accuracy Goals 

The basic formulas relating frequency, velocity and wavelength m 
a medium are given by 


10 _ 2 tt 
c ~ A 


c 

and c = — 
n 


d-1) 


where to = angular frequency = 2mf 
f = frequency 
c Q = velocity in vacuum 
c = velocity m medium with refractive index n 
A = wave length in medium 
Eq 1 can be arranged 


A 



1 

n 


( 1 - 2 ) 


In the distance measuring instrument, the light beam is modulated with 
a (radio band) frequency f The number of modulation wavelengths. 
between the laser and the target (and return path) are counted by the 
instrument (including fractions) to determine the distance 


D 


l 


= i . 



■i • 10 m 


(1-3) 


where = distance readout from instrument 

£ = number af modulation wavelengths in path (including 
return) 

f = modulation frequency 

c ^ 

n^ = assumed refractive index (determined n 1 = 2f 10^ 

Since the "true" refractive index is usually different from n^, the "true" 
distance is given by 



where n = "true" refractive index, that is the mean value along the 
beam path With the basic goal of about 1 part in 10' each of the 
factors in £q (4) has to be determined at least to that accuracy 
that is A and f in the Rangemaster II, C is given by international 
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agreement (see Laurila, 1976, p 129) and n depends on pressure, 
temperature and humidity measurements along the laser beam path 

In order to have "manageable" numbers the "refractive number" N 
is used, with the refractive index being 

n = 1 + N x 10~ 6 (1-5) 

For all line calculations the following formula was used (Launla, 
1976, p 132) for the refractive number 


N = Ng » P - 41 8e 
3 709T 


( 1 - 6 ) 


where Ng = 300 2 the group refractive number for He - Ne laser light 

P = barometric pressure (mb) 
e = water vapor pressure (mb) 

T = temperature m “K , 
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The basic goal of accuracy of 1 part m 10 (in n) permits no 
more error than 0 1 in N The corresponding limits imposed on P, T 
and e then can be estimated from the partial derivatives of Eq (6) 
with respect to these variables ' 

dN _ 1_ , -NgP +41 8e . 

dT - t 2 v 3 709 ' s 


dN _ Ng 

dP 3 709T (1-7) 

dN 41 8 

de “3 709T 


Some typical values of atmospheric data for Maui will show the required 
maximum error limits for temperature, pressure and water vapor pressure 

At Sea Level At Haleakala (3000m) 


Temperature 

295“K 

280“K 

Pressure 

1014 mb 

705 mb 

Water Vapor Pressure 

22 mb 

2-5 mb 

dN/dT 

-0 941 

-0 728 

dN/dP 

0 274 

0 289 

dN/de 

-0 038 

-0 040 

maximum allowable error for 0 1 change 

m N (or 1 part 

7 

in 10 m n) 

mp (temperature) 

0 11°C 

0 14“ C 

m p (pressure) 

0 37 mb 

0 35 mb 

m (water vapor pressure) 

2 6 mb 

2 5 mb 


In discussing individual pieces of equipment, their calibration and 
basic limitations in the following sections, the reader should keep 
Eq, (4) in mind, where 1 (number and fraction of wavelength measured), 
and f (modulation frequency) and their possible errors are associated 
with the Rangemaster II The mean refractive index n is obtained 
from a number of n values determined along a measuring line including 
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the end point where the accuracy of individual measurements (including 
calibration errors) for temperature, pressure and humidity should 
satisfy the maximum error allowance given in Eq 1-8 
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II LASER LINE NETWORK 

The location of lines and the setting of the terminal markers were 
completed prior to December 1976 The distance measurements were made 
during the period December 1976 to December 1977 Of the total of 38 
lines provided with fixed terminal markers 31 have been measured, 
many of them several times The entire network on the island of Maui 
consists of 13 long lines with variable lengths between 8 and 31 
kilometers, 5 intermediate lines of about 7 kilometers long in the 
vicinity of the top of Haleakala, 17 short lines of about 2 to 5 
kilometers long and primarily used to tie tidal gages to inland markers, 
and finally 3 very short lines of a few hundred meters to tie the base 
of the LURE telescope to the network (Fig II-l) A general star format 
from the summit of Mt Haleakala to various points on the shoreline 
was utilized, ties between the loose terminals were made whenever 
possible Two complete quadrilaterals with diagonals have been formed, 
m the Wailuku-Haleakala and m the Hana Airport areas One extra 
center point was tied to the corner points in the former area The 
slope angles of the lines above horizontal vary between 0° and 12° 

Prior to setting the terminal markers an extensive line of sight 
survey was conducted For each long and intermediate line elevation- 
distance increments, measured from the 1 24,000 quadrangle maps, 

were programmed and fed to an analog plotter Figs II-2 and II-3 
illustrate samples of such plots Line Luke-ARPA represents a typical 
high-clearance line while Mees-Lighthouse is the line with the lowest 
clearance found m the network, both lines were flown by helicopter 
to determine the mean refractive index of the ambient atmosphere 
The results of the plots were verified during the actual survey on Maui 

If available, U S Coast and Geodetic Survey (USGS) , Hawaiian 
Government Survey (HGS) or Hawaiian Territorial Survey (HTS) triangulation 
markers have been used as the line terminals to allow comparison between 
the old trigonometric line lengths and the new laser line lengths 
Where new markers were needed, especially at the terminals of long 
lines, one-inch diameter holes were drilled m solid rocks or in 
existing and new concrete slabs and pillars Brass bolts 3/4 -inch 
diameter and about 6 inches long with a flat end for fine marking 
have been anchored in the holes with epoxy The markers bear the 
identification of UH HIG and the number of the point At the end of 
most intermediate and short lines, holes 1/4-mch diameter and about 
2 inches deep were drilled and phillips screws were set in lead bushing 

Descriptions and specifications of all laser lines on the island 
of Maui are given in the following Table II-l 



42‘30" 27'30" 



Fig II-l 



156“ 12*30 


W 155°57'30 
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TABLE II - 1 

Description of Laser Lines on the Island of Maui 




Terminals 



Length 


Elevation 



No 

km 

Identificatior 

km 

Location 

Remarks 



ARPA 

3 03434 

US Army Corps of Engineer: 
marker in concrete slab 

s On the marker 





50 m west of ARPA west 


1 

0 227 



dome 




LURE 

3 04974 

UH brass marker m flush e< 

: Middle of road, 15 





concrete 

m north of Kolekole 



LURE 

3 04974 



2 

0 120 

Mees 

3.04099 

UH brass marker on con- 

15 m west of Mees 





crete slab 

Solar Observatory 



Mees 

3 04099 



3 

0 248 

ARPA 

3 03434 





ASPA 

3 03434 



4 

31,398 

Luke 

0 09384 

UH brass marker next to 

In a 4- feet square 



(Cemetery) 


USCGS 1912 marker 

concrete slab 



ARPA 

3 03434 



5 

30,291 

Pier 2 

0 00228 

UH screw marker next to 

About 10 m NE from 





USGS bencn mark No 8 

Kahului tidal 
gauge 



Puu tiianiau 

2 08790 

HGS 1877 VABM 

[ On the marker 

6 

28,843 

Luke 

0 09384 


i 



Puu Nianiau 

2 08790 



7 

27,069 

Pier 2 

0 00228 





Kikalapuu 

0 75540 

USCGS 1950 VABM 

On the marker 

8 

20,699 

Luke 

0 09384 





Kikalapuu 

0 75540 



9 

19,349 

Pier 2 

0 00228 





Kikalapuu 

0 75540 



10 

11,111 

ARPA 

3 03434 





Kikalapuu 

0.75540 



11 

8,745 

Puu Nianiau 

2 08790 





ARPA 

3 03434 



12 

7,279 

Puu Nianiau 

2 08790 
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TABLE II - 1 (cone ) 




| Terminals 



Length 


Elevation 



No 

km 


i km 

Location 

Remarks 



LURE 

3 04974 



13 

7,349 

Puu Nianj.au 

2 08790 





Luke 

0 09384 



14 

3,274 

Pier 2 

0.00228 





Luke 

0 09384 



15 

2,469 

WailuKu North 

0 09970 

At the signal mast of the 

Fx-tad plastic 





HTS 1929 marker 

reflector 



Pier 2 

0 00228 



16 

3,482 

Wailuku North 

0 09970 





Luke 

0 09384 



17 

27,459 

Puu Olai 

0 10960 

OH brass marker next to 

In a 4 feet square 





HGS 1879 marker 

concrete sisd 



Puu Manoe 

0 62850 

UH screw marker m con- 

On road, SW from 


II 



crete support of cattle 
guard 

Puu Mahoe VABM 

18 

5,883 

Puu Olai 

0 10960 





Puu Olai 

0 10960 



19 

6,900 

Lighthouse 

0 01463 

uH brass marker m old 

About 50 m W froiu 





concrete winch base 

Hanamamoa Light 



Puu Mahoe 

0 62850 



20 

5,590 

Lighthouse 

0 01463 





Lighthouse 

0 014O3 



21 


La Perouse 

0 00100 

OH screw marker m lava 

About 200 m SE from 





rock 

tidal gauge, marked 
with pile of lava 
boulders 



Puu Mahoe 

0 62850 



22 

4,513 

La Perouse 

0 00100 





Mees 

3 04099 



23 

21,408 

Lignthouse 

0 01463 





Puu Niamau 

2 08790 



24 


Huelo 2 

0 01120 

UH marker next to HTS 

To be set on an 





1950 VABM 

existing concrete 
slab 
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TABLE II - 1 (cont ) 


No 


Length 

km 


Terminals 


Identification 


Elevation 

km 


Location 


Remarks 


25 


Leleiwi 


Hana Airport 


2 68682 


0 01680 


OH brass marker on 
concrete 


HTS 1950 VABM 
(Honokalani 2) 


On the floor of 
covered lookout 
site 

On the marker 


26 


Leleiwi 

Hanakauhi 


2 68682 
2 71486 


UH marker next to USCGS 
1950 VABM 


Fixed reflector at 
aluminum pipe 


27 


Puu Nianiau 
Hanakauhi 


2 08790 
2 71486 


28 


LURE 

Hanakauhi 


3 04974 
2 71486 


29 j 


3,024 


Wolfe's Rock 


Hana Airport 


0 12996 


0 01680 


UH screw marker m rock 


Rock is by a post 
in field 5 m off 
the road 


30 I 


3,474 


Waterpipe 


Hana Airoort 


0 15240 


0 01680 


UH screw marker m 
concrete 


Concrete block 
under 3" waterpipe 
running through 
field 15 m off the 
road 


31 


1,990 


Wolfe's Rock 
Carter's Cliff 


0 12996 
0 01524 


UH screw marker in rock 


2 m from edge of 
cliff (under roc<c 
pile) 


32 


1,987 


Waterpipe 
Carter's Cliff 


0 15240 
0 01524 


33 


2,353 


Hana Airport 
Carter's Cliff 


0 01680 
0 01524 


34 


629 


Wolfe's Rock 
Wateroioe 


0 12996 
0 15240 


Hana Cross 


0 16500 


UH screw marker In 
concrete 


It the NE comer 
of base of Cross 
monument 


35 


1,344 


Hana Pier 


0 00300 


UH screw marker in 
concrete 


At the base of Hana 
Pier 
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III INSTRUMENTATION 


(Description, accuracies, calibration) 


Geodimeter MS 

The specified accuracy of the AGA Model 8 Geodimeter is + (6 mm + 

1 Ppm) The frequency accuracy is +0 5 ppm 

With the Model 8 one "range measurement" (not including any correc- 
tions) actually consists of 32 individual range measurements (four 
frequencies x four phases x internal and external paths) and over 60 
mathematical operations and over 30 logic decisions Thus, gathering 
data for one range computation takes at least a half hour to one hour, 
depending on conditions, and the calculations are not only time 
consuming, but prone to errors One obvious difficulty is that if the 
refractive index is drifting during the time that the data is collected, 
the resulting range measurement will reflect the mean value over that 
period, and there is no indication of the degree of drift from the 
range data 4 second difficulty is that if some difficulty is 
encountered at some point m the measurement, or if some procedural 
error is made, this may not be apparent until the attempt is made no 
reduce the data 

Numerous methods were used to minimize the errors First, we 
doubled the number of data points Then the order in which the readings 
were taken was selected so that linear drifts would tend to cancel 
Once the distance was calculated using all four frequencies, it was 
recalculated using each frequency singly This gave some indication 
of atmospheric and instrumental drift, and gave individual checks for 
each of the four wavelengths We also measured each of the four 
frequencies periodically against a frequency standard to correct for 
oscillator drifts Finally, a program was developed for an HP-67 
calculator that handled all of the calculations and logic decisions so 
that the data could be quickly checked in the field None of the 
data was used for the final line lengths, since no helicopter data 
were taken at the time 


Kangemaster II 

Since two wavelength or three wavelength distance measuring 
equipment is rather bulky for field surveys (Bouricius and Earnshaw, 
1974, Slater and Huggett, 1976), we acquired the portable Rangemaster II 
(18 kg) for actual line measurements on the Hawaiian island of Maui 


Description 

The Rangemaster II is one of the latest electronic distance 
measurement systems, manufactured exclusively for the Keuffel & Esser 
Company fay Laser Systems and Electronics, Inc m Tullahoma, Tennessee 
Extensive use of integrated circuits and a microprocessor make up a 
fully automated, low power consumption and easily portable system This 
system uses a 5m W helium neon red laser, which is modulated in the HF 
range Specifications are for an accuracy of + 5 mm +_ 1 ppm over a 
temperature range from -28“ to +49°C after a 5 to 20 minute warmup 
depending on ambient temperature The readout resolution is 1 mm on 
the range display The operation of the instrument is based on range 
measurements at 4 modulation radio frequencies to obtain distance 
within a 10- km frame A correction for atmospheric conditions can be 
included during internal calculation for the distance readout The 
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assumed difference from the refractive index of one for internal distance 
calculation (with the dial set to 0 ppm correction) is 310 ppm (That 
is C 0 /2f = 1 00030984 • 10 m, with 10 m the basic length unit, where 
Co = 299792458 m/sec and f = 14984980 Hz, for the Model 8 geodimeter 
the basic length unit is 5 m and f = 29970000 Hz leading to an assumed 
refractive index of 1 00030850) It should be noted that the Rangemaster 
II generates the basic frequency of 14984980 Hz as an upper side 
band of the 14983481 5 Hz internal oscillator 

In the automatic mode a distance measurement is obtained (as an 
average of 100 rangings at the reference frequency) about every 8 
sec, which compares to about 3/4 of an hour per measurement (plus 
additional time for data reduction) with the Model 8 geodimeter 
Therefore, averaging over many measurements would allow considerably 
better accuracy than the + 5 mm + 1 ppm if the reference frequency 
were known better than 1 ppm, and if the deviation from true distance 
m the 10-m base interval (+ 5 mm) due to nonlmearities in the phase 
comparison by the pulse counting method were measured and corrected for 

Another limiting factor for our application, especially during the 
measurement of the shorter lines, is thermal and shot noise of the 
detector The intensity of the light reaching the detector directly 
on long lines (“v to 60 km) or through the attenuating gray wedge on short 
lines results m an electrical signal just high enough above noise to 
produce range measurements with a standard deviation of about 1 5 mm 
This standard deviation was actually measured on a 10- to 20-m line 
length m the laboratory On the long lines this noise is generally 
much less than the spread m measured length generated by atmospheric 
flicker and drift (with time) and the additional uncertainty in 
determining the mean refractive index along the laser beam path On 
shorter lines the spread due to detector noise becomes quite significant, 
Since atmospheric flicker is small, and the refractive index more 
accurately determined and the resulting correction proportionately 
smaller On the shorter lines more reflected light is available 
and the optical attenuator (the gray wedge) is used to reduce its 
intensity at the detector to near noise level 


Instrument Tests and Improvements 


To increase the accuracy of the length measurement a 
tests and physical improvements were made These concern 
frequency, the nonlinearity over the basic 10-m range and 
and shot noise limits 


number of 
the oscillator 
the thermal 


Thermal and Shot Noise 

To reduce the standard deviation of a length measurement on the 
shorter lines a two-step attenuator was installed after the detector 
amplifier Thus attenuating the output electrical signal by a factor 
of 2 or 4 requires the sane increase of light intensity at the detector, 
resulting therefore m an equal signal to noise improvement at the 
front end Thus with the electrical attenuator the statistics of the 
shortline measurements are practically reduced to the one-count least 
significant digit uncertainty of 1 mm 


Reference Frequency (Laboratory rests) 

Since the mam source of the 1-ppm limit is the reference oscillator, 
temperature dependence was investigated by placing a high-precision 
thermistor (15 K ft at 25°C) inside the instrument casing directly 
on the module of the temperature- compensated crystal oscillator and 



measuring the reference frequency as a function of the thermistor 
resistance Despite some thermal inertia of the oscillator module 
it was found that the frequency could be determined from the thermistor 
readings (and a small additional factor dependent on supply voltage) 
to within + 1 part in 10', which is a considerable improvement over 
the + 1 ppm specification Further simplification will result by 
installing a more precise oscillator (+ 5 x 10“ 9 /day) The full 
use of this instrumental capability, however, requires very careful 
monitoring of the atmospheric conditions in order to obtain the 
integrated refractive index over the measuring line 

The Rangemaster II has a BNC output connector permitting the check 
of the nominal 14984980 Hz reference frequency The actual frequency 
during all laboratory and cold room tests was measured, using the 
1 MHz output of a Tracer (Sulzer Laboratories Division) Model 304-B 
rubidium frequency standard as a reference The counting was accomplished 
with Hewlett Packard counter system combination of the Measuring System 
5300A, Counter Section 5302A and Digital to Analog Converter 5311B 
The D/A output was recorded on a HP 7101B recorder Counting during 
10- sec intervals resulted in a 10-Hz span for the 25- cm chart width 
in steps of 0 1 Hz (approx 7 parts m 10 9 ) Chart speed during the 
tests was 5 mm/minute The resistance of the thermistor was measured 
on a 3^-digit multimeter and data points were taken in steps of 
OIK ohms at the time when the corresponding digit had settled at 
the display Similarly the battery supply voltage was measured with 
a digit multimeter to the nearest 0 01 volt with changes being 
noted on the frequency chart also The rubidium standard output was 
set to the 1968 time scale, which amounts to a -300 x 10 -10 frequency 
offset from today's standard (BIH 1975 Table 9, p B-41) This 
offset, however, is smaller than the accuracy aimed for (1 part 10?) 
during this test, and therefore was neglected In different terms 
all results presented refer to the 1968 standard 

Several test runs were made starting with the instrument in thermal 
equilibrium at ambient office temperature (around 22 to 23°C) and 
some were made starting with the instrument m near equilibrium m 
a cold room at 0°C During all experiments there occurred a relatively 
fast frequency change over the first three to four minutes, which is 
considered the "warm up” time Afterwards the frequency related to 
the thermistor readings within + 1 part in 10 7 at nearly constant 
ambient temperature and for repeated runs on the same day (a new run 
being started after the instrument was shut off sufficiently long 
to reach thermal equilibrium with the ambient temperature) , each 
successive run seemed to be at slightly higher frequency However, 
when the instrument was shut off for a somewhat long time (overnight) 
the next day's run was found to be within a few least digit counts 
(0 1 Hz) of the previous day’s first run This finding suggests 
that the oscillator does not age when shut off The oscillator 
seems to reach a nearly stable equilibrium at constant ambient temperature 
after about 2 hours The cold room (0°C) frequency-thermistor resistance 
curves differed from the office (22°C) curves by some 2£ Hz lower, 
indicating that the themistor as implemented does not completely 
track all frequency determining components of the oscillator, 
indicating differing temperature gradients between the thermistor 
and critical parts of the oscillator circuit One should perhaps include 
an ambient temperature correction of about 0 1 Hz/°C to the curves 
between 0 and 25 ambient temperature in order to stay within better 
than 1 part in 10? This temperature range is sufficient for field 
operations in Hawaii To assure this narrow range, an absolute 
frequency check should be run before and after each day's (or night's) 
field measurements 

Before plotting the curves presented in Figures III-l and III-2, 
a voltage correction of + 2 9 Hz/volt variation from a nominal 12 5 
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volts was applied This coefficient is an average of several determina- 
tions when the oscillator was stabilized and the voltage then varied 
(without a significant change in thermistor resistance reading), and 
is needed because the oscillator subassembly is operated directly 
from the (unregulated) battery voltage 

One of the tests was started in the cold room, when near equilibrium 
(at 14 K ft thermistor resistance or 27°C) was reached, the instrument 
was taken out into normal ambient temperature and measurements continued 
As Fig II1-1 indicates, the frequency-resistance curve shows a gradual 
convergence toward the ambient normal temperature curves (22°-23°C) 
and is within 1 part m 10 7 at the resistance reading of 6 K P when 
the experiment was stopped 

During a 24-hour run, starting (22 APR 17 H 00) with the outside 
cover removed from the instrument and later replaced, indications were 
that longer operation (overnight) at higher temperatures either age 
the crystal positively or thermal effects occur that are not tracked 
by the theimstor (see 4 to 5 K 52 region (60°C) in Figure III-l) The 
cover was then taken off again to cool the instrument and the resulting 
curve continued at somewhat higher frequency The instrument was then 
shut off, cooled to room temperature and restarted (23 APR 22 H 44) 

4i hours later That run (starting near 13 1 K 52 or 28°C in Figure III-l) 
also indicated the highest frequency encountered After another day 
and a half the curve was back again to the ''normal" position 


Reference-Frequency (Field Tests) 

During actual field line measurements at several locations on 
Maui, we followed the same procedures as m the laboratory However, 
a battery-operated, more portable, 1- MHz standard (James Knight Co 
model FS-1100T) , which was checked against the rubidium standard, 
furnished the reference frequency for the HP counter 

The HP counter indications were noted together with the thermistor 
resistance and battery voltage for comparison The corrections for 
battery voltage variation (2 9 Hz/volt) were-applied before plotting 
the field data (dots) presented in Figure III-2 In the same figure, 
the normal laboratory and the cold room/normal curve (see laboratory 
test) are included for reference During field measurements the ambient 
temperature was the same as in the laboratory, but the winds (10 to 15 
knots) seem to have shifted the curves toward higher thermistor 
resistance, indicating a modified temperature gradient from the thermistor 
to the oscillator This results in about 1 x 10 ~ 7 lower frequency 
reading at the same thermistor resistance than m the laboratory 
Also stamlization seems to be reached earlier There is remarkably 
little spread m the field data, about 5 x 10~8 ln frequency This 
indicates that the use of this ' reference curve" and the battery voltage 
correction yields the frequency well within + 1 x 10 -7 It should be 
pointed out that these field measurements need only the indicated 
resistance and voltage measurements to stay within + 1 10“ 7 


Linear -ty Test 

To achieve better accuracy than the specified + 5 mm part of the 
instrument, linearity measurements over a basic 10 - m interval were 
performed at different times First, distances along a baseline were 
taped off very carefully (in the institute basement with metal tapes 
3 or 5 m long) The reflectors were then moved either between 10 and 
20 m or 20 and 30 m along the baseline m 50- cm intervals, and 20 or 
more readings were taken at each position Standard deviations of the 
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mean values ranged from a "low" + 0,20 to a "high" + 0 40 mm Set up 
errors in distance between the instrument and the reflector were 
estimated to be smaller than 2 mm (probably 1 mm) for measurements 
taken at several months interval and using different metal tapes. 

Several problems were encountered At the short distance the 
variation of the physical location of the return beam on the optical 
system varies the readout sometimes by as much as 5 mm, everything 
else being held constant (including the returned signal strength of 
the beam as measured by the meter on the instrument) Using a corner 
cube reflector, the beam at these short distances is only 5 to 8 mm 
in diameter After a series of measurements made in May/ June and again 
in mid-October 1977, it was decided to use only a "dot” reflector, 
which is composed of small glass beads and returns a wide, diffused 
beam, that even at the short distances covers a considerably larger 
area than the instruments optics The results of the linearity 
measurements, using a dot reflector (m mid-October) are presented 
m Figure III-3 (lower curve) where the top graph is as given by the 
K & E Company 

Some variation of the measured lengths also was found when the 
signal strength varies within the admissible range Usually shorter 
distances (2 to 3 mm) were indicated at the higher signal level (that 
is at the right side of the green field of the meter for the external 
beam (the internal signal strength being held constant m the center 
of the meter) 2 to 3 mm of the observed scatter in actual field 
distance measurements on the long lines therefore seems to be attributable 
to variation in signal strength 

We feel therefore that about + 2 mm is the limit, due to the 
combined effects of nonlinearity and signal strength variation 


Peg Test , 

The "peg" test determines the instrument offset, that is a constant 
for a particular instrument This offset is added to the calculated 
length when a Model 8 geodimeter is used, or dialed m directly for the 
Rangemaster II, so that the displayed length is already offset corrected 
For the test a line AC with an intermediate point B is measured along 
AB, AC and BC resulting m measured lengths AB-K, AC-K and BC-K, 
where K is the offset 

Since AB + BC = AC 
it follows that 

(AB - K) + (BC - K) = AC - 2K = (AC - K) - K 


or 


K = (AC - K) - (AB - K) - (BC- i£) 

The test was carried out m February at receipt of the Rangemaster II 
on a 60-m base line m the Institute's basement Using the offset 
137 mm determined by the manufacture, the remaining closure error was 
0 7 mm The same three test points were also occupied at the same time 
with a Model 8 geodimeter Two of the measured lengths were within 
0 2 mm of the values obtained by the Rangemaster II, the third one 
was off by 11 0 mm 
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Barometers 

In order to comply with the strict requirements set forth in 
Chapter I to achieve an ultimate accuracy in the line measurements of 
the order of a few parts m ten millions, all necessary precautions 
were taken into consideration Barometers and psychrometers were 
calibrated in a proper way to bring them into one common system of 
data collection 

The barometric pressure readings on the ground were taken with the 
Negretti and Zambra Model M2236 Digital Barometers at lower altitudes 
(800-1050 mb) and with the Model M2131/B Digital Barometers at higher 
altitudes (550-800 mb) The specified accuracy at 20° C is + 0 4 mb, 
and is + 0 7 mb over the range of 5-35° C Each instrument coming from 
the factory was provided with the linearity correction table As a 
back-up instrument an old Wallace Tiernan aircraft type aneroid 
barometer was used It had capability for continuous pointer reading 
between 60 and 1050 mb No accuracy figures were available 

By comparing all instruments m a pressure chamber, it should be 
possible to detect any drift or shift m the calibration or linearity 
of individual instruments These comparisons were made by placing two 
instruments at a time into a small pressure chamber which was pumped 
down to simulate the range of altitudes encountered m our project 
While in the chamber, the knob on the barometer was remotely manipulated 
by means of a small servo motor attached on each barometer We 
found that the linearity correction curve was substantially different 
when the whole instrument was subjected to the reduced pressure 
environment, rather than just connecting the pressure to the port 
fitting 

The available three low-altitude digital barometers were numbered 
as 1-3, the three high- altitude digital barometers were numbers as 
4-6, and the aircraft barometer was assigned the number 8 All low- 
altitude barometers were compared to the number 1, which m turn was 
corrected to its factory calibration values Similarly, the high- 
altitude barometers were compared to the number 6 For the absolute 
calibration, number 1 and number 6 digital barometer will be eventually 
compared to a quartz barometer The results of the linearity 
correction tests are given m Table III-l and in Figure III-4 
The tabulated value and curve for number 1 and numoer 6 are those 
supplied by the manufacturers 
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TABLE III-l 


Barometric level Barometric Corrections m Millibars 

in Millibars #1 #2 #3 #8 #4 


1015 

+0 

03 

-0 

27 

-0 

42 

+0 

53 







1000 

+0 

00 

-0 

35 

-0 

45 

+0 

45 







975 

+0 

00 

-0 

36 

-0 

60 

+0 

30 







950 

-0 

05 

-0 

49 

-0 

58 

+0 

30 







925 

-0 

05 

-0 

46 

-0 

61 

+0 

25 







900 

-0 

05 

-0 

47 

-0 

57 

+0 

45 







875 

-0 

10 

-0 

34 

-0 

60 

±° 

00 







850 

-0 

10 

-0 

31 

-0 

66 

+0 

30 







825 

-0 

10 

-0 

35 

-0 

62 









800 

+0 

15 

-0 

09 

-0 

27 



+0 

30 

+0 

97 

+0 

25 

775 









+0 

18 

+0 

89 

+ 0 

13 

750 









+0 

11 

+0 

90 

+0 

05 

725 









+0 

14 

+0 

85 

+0 

08 

700 









+0 

01 

+0 

61 

+0 

00 


Bearing in mind the +0 35- mb maximum allowable error m pressure 
for +0 1-ppm range accuracy, it can be seen that the nonlinearity 
does contribute a significant error Since each instrument stayed at 
a fixed location while a line was being measured, the linearity 
correction was entered manually for each line to the data reduction 
program 


Psychrometers 

The Model H331 Assman Psychrometers (manufactured by Weathermeasure 
Corporation) used for temperature and water vapor pressure determinations 
on the ground were found to contribute errors considerably greater than 
the 0 1°C maximum allowable error for +0 1-ppm range accuracy 
Therefore, ten available thermometers from five psychrometers were 
taken from their supports and intercompared m water baths of various 
temperatures with two precision thermometers originally calibrated in 
1972 at the Ohio State University (Cushman, 1972) 

In the calibration of the OSU thermometers the following formula 
was used 


cal 


- T 


obs 


= c + c, T 
o 1 o 


C 2 T o 


+ C r>T 

3 O 


AT = T 


3 


(III-l) 
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which procedure yielded 

the following coefficients 



Thermometer 
Serial Number 

c o C 1 

C 2 


C 3 

06239 

0 0134 0 0027 

-0 00032 

0 

000007 

06245 

0 0244 0 0049 

-0 00092 

0 

000039 


These values were determined during several hundred mtercompansons 
between each of the thermometers and a standard traceable to The National 
Bureau of Standards It should be noted, however, than these 
mtereomoarisons were made only over the temperature range of -5°C 
to 12 °C 


To calibrate the University of Hawaii thermometers used m our 
project, equations of the form 


C o + C l T obs 


comp 

were determined for each thermometer The process was as follows 
1 Averaging two values read from each OSU thermometer 
Correcting these temperatures for the calibration 


( III-2) 


2 

3 


Averaging these values and using this as the temperature of 
the bath 


4 Computing ST for each UH thermometer at this temperature 

5 Computing c q and c^ by utilizing linear regression to the data 

6 Computing some statistics of the regression 

The reduced data were fitted with first degree equations and also 
plotted to see if there was any great indication that a first degree 
equation was inadequate There was none 

The coefficients and related correction curves thus obtained are 
given m Table III-2 and Figure III-5 where the UH thermometer numoers 
are provided with dry and wet bulb indications (D, W) 


TABLE III- 2 


Thermometer 


UH Thermometer 




Serial Number 


Number 

o 


1 

209 


ID 

-0 175 

1 

000 

182 


1W 

-0 014 

1 

001 

51114 


2D 

-0 187 

1 

009 

51040 


2W 

-0 023 

1 

005 

339 


3D 

-0 425 

1 

008 

248 


3W 

0 153 

0 

995 

51027 


4D 

0 274 

0 

995 

51130 


4 W 

-0 276 

1 

016 

51011 


5D 

-0 416 

0 

983 

51150 


5 W 

0 480 

0 

969 


1 

002 

51013 

6D 

0 062 

51117 


6W 

-0 399 

1 

021 
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The observed atmospheric parameters T, P, and e are all dependent 
on the elevation of the observation point, and thus liable to errors 
due to errors made in defining that elevation Bearing m mind the 
allowable errors for the 0 1-ppm accuracy, the following summary can 
be presented 

With a typical temperature lapse rate of about 6°C/km, an error 
of 0 1°C will occur m about a 17- m change m elevation An error of 
0 35 mb in pressure will occur m a 3 1- m change m elevation at sea 
level, or m a 4 1-m change at an elevation of 3000 m The 2 5-m 
error in water vapor pressure represents about 10% of the existing 
sea level water vapor pressure, and 50 to 100% of the typical water 
vapor pressure at an altitude of 3000 m 

Considering the different procedures to determine the observation 
elevations (at the fixed ground points and in the moving helicopter), 
the analyses of the maximum allowable errors, along with their 
equivalents m terms of elevation changes, serve as a realistic approach 
to the actual field measurements of the atmospheric refractive index 


Airborne Instruments 
(Digiquartz, thermistor, hygnstor) 

Measuring atmospheric conditions and flying height from helicopter 
data poses some special problems The effects of the helicopter itself 
on the measurements must be carefully determined and compensated for 
The helicopter "probe" includes a "digiquartz" pressure transducer 
(barometric pressure and altitude), a thermistor ("dry’ temperature) 
and a hygnstor (relative humidity) 

Since the FAA would not permit a boom to be attached to the 
helicopter to place the probe out from under the downwash of the rotor, 
it was necessary to measure its effects as accurately as possible 

First, there are static pressure effects The helicopter is 
supported by a high-pressure area under _ the rotor The magnitude of 
this pressure, as calculated from disk loading for the model helicopter 
used, amounted to only +1 4 mb Since this is already smaller than the 
allowable error (for determining the refractive index for 1-ppm 
range accuracy) this pressure could have simply been subtracted as a 
constant Actual measurement of the pressure error when hovering just 
above "ground effect," however, showed that the high pressure from 
the rotor is being partially offset by the pressure drop caused by 
aerodynamic flow of the rotor downwash around the body of the aircraft 
The result is that the apparent discrepancy between a free air measure- 
ment and a helicopter measurement when hovering above the ground 
cushion effect is less than 0 1 mb 

When the helicopter is in forward motion, there are two other 
effects on the pressure measurement One results from the rotor downwash 
being tilted backwards, rather than straight downwards, resulting in a 
different flow pattern for the downwasn The second effect is the 
pressure drop at the point where the probe is mounted due to the 
aerodynamic flow of the air around the body of the helicopter In 
order to evaluate the effect of forward velocity, we ran several 
calibration runs at a constant altitude of 50 feet above the open sea, 
starting from a hover, and increasing to over 100 mph We expected 
to see a pressure decrease proportional to the square of the airspeed, 
and a least squares fit to the data showed this to be very nearly 
true While actually measuring a line, we held the helicopter airspeed 

as constant as possible, and logged the airspeed along with the 
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atmospheric data The empirical correction tor airspeed was added to 
the computer program, including an air density correction proportional 
to altitude 

There is also an undesirable effect of the helicopter on the 
temperature measurement The temperature measured by the probe is 
the temperature of the air pulled down from an unknown height above the 
helicopter and possibly heated to some unknown degree by the energy 
from the rotor Since the lapse rate is typically 6°C/km, the allowable 
error of +0 1°C m the temperature measurement is equivalent to an 
elevation difference of 17 m These two effects should produce errors 
of opposite sign, but the degree to which they may offset each other is 
not precisely known at this time 

The relative humidity is measured by means of a hygnstor in the 
probe Although the hygristor is quite prone to drift, the allowable 
error in the determination of the water vapor pressure of +2 5 mb 
is not difficult to control The response time of the hygristor is. 
only about 2 seconds, and there is no need for supplying moisture to a 
wet bulb thermistor, making the hygristor quite acceptable for this 
application 

The probe was mounted on one of the struts of the helicopter, below 
the front left door The static port for the pressure measurement 
was made m the form of a "T", to make it relatively insensitive to the 
exact angle of the air flow, and the thermistor and hygristor were 
mounted inside a small protective plastic tube Since the most 
critical factor for determining the refractive index (or the refractive 
number N) from the helicopter atmospheric measurements is its altitude 
determination, special precautions have been taken These precautions 
are elevation checks at the line end points with the helicopter flying 
level with the markers and simultaneously taking pressure reading from 
the "Digiquartz" pressure transducer The helicopter is directed to 
that level by radio voice communication from the end point site 
(See "Helicopter altitude") 
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IV. REFRACTIVE INDEX 
(Individual Points) 


Ground Stations 

At the sites of the laser, the reflectors (and possibly other ground 
stations), the psychrometer (wet and dry) temperatures and the digital 
barometer pressure are read at (equally spaced) time intervals 
together with the time These raw data appear m the computer printout 
under "Atmospheric data taken at " where gives the location name 
The observed values are first corrected according to instrument 
calibrations Using corrected values the water vapor pressure e is 
calculated 


e - 269782133 - exp ( TW~ - ^ 242 6 25445 ^ 

- 0 00066 • (1 t 0 00115 TW) • P • (TD - TW) 
where TW = wet bulb temperature 
TD - dry bulb temperature 
P = pressure 

The first term of Eq. (IV-1) is the saturation pressure of water vapor 
obtained from a least squares fit to the Smithsonian psychrometric 
tables from 0° to 25 “C 

Finally the refractive number N is obtained from (Laurila, 1976, 
p 132) 


300 2 • P - 41 8e 
3 709(TD + 273 15) 


( IV-2 ) 


The results of the calculations and their mean values are printed out 
under the heading "Reduced Atmospheric Data " In this "Reduced 
Atmospheric Data" block, only those raw data from the preceding block 
have been reduced, that are between the *sign The mean value of N 
for the ground station is used together with the mean value of the 
other ground station and from the helicopter data to determine the 
mean refractive index along the laser beam (see Appendix I) 

* 

Since the long lines are only measured during the night , systematic 
changes of N at the terminal ground points are small, if any, and are 
averaged in the described procedures during the time it takes the 
helicopter to fly the line (about one half of an hour) However, the 
helicopter flies line AB first from A to B and then turns to fly from 
B to A Measurements taken during flight time from A to B are treated 
as one line measurement, and the return flight measurements from B to A 
are treated as a second independent measurement of the same line 
Therefore time variation of atmospheric conditions are reflected (a) m 
the mean values of N at the ground points and the mean values for the 
total line, (b) in the frequency corrected direct range readings of the 
laser 


Since the frequency corrected ranges of the laser (D in Eq V-l) 
are inversely proportional to the mean refractive index n along the line, 
the comparison of the mean (frequency corrected) of the ranges D of 
the forward and the mean of the D's of the return flight is the most 
stringent test on the mean 7T = (1 + FT • 10 “) obtained for each of the 
two flights The output plots of the various data have been partially 
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included to detect such trends (see figures in Appendix I) 


Helicopter Line Measurements 

Before takeoff and after the forward and return flights along a line, 
the helicopter instrument values (Digiquartz frequency, hygnstor and 
thermistor resistance) are compared on the ground to those obtained from 
the digital barometer and dry and wet bulb temperatures These data 
appear m the computer outputs under "Initial (or Final) Calibration 
of the Helicopter Hygnstor at Airport" 

From measurements taken during the flight, temperature, pressure 
and water vapor pressure are determined 

Temperature (from thermistor resistance) 

T(°K) = i- (IV-3) 

10' 6 ♦ (3297 71 + 474 579 In RTH1 + 5 54285 (In RTH1 ) 3 ) 

T = temperature (degrees Kelvin) 

RTH1 = R TH/13 637 

RTH = thermistor resistance (k ohm) 

13 637 = calibration resistance at 25° C 


Pressure (from Digiquartz frequency) 

pres = P + velocity correction (IV-4) 

2 

P = [10592 79 (1 - ^^) - 5890 86 (1 - ^f 3 -) ]mb (IV-5) 

a c 

Freq = Digiquartz frequency (Hz) 

F = zero pressure frequency, calculated for each line by 
comparison with ground instruments, written out m the 
helicopter calibration section above the uncorrected data 

Velocity correction = P (3_000||04_v£ _ Q 0000102 v) mb (iv-6) 

V = helicopter air speed (mph) 

Water vapor pressure (from hygnstor resistance) 

e = ESAT • %RH/100 (IV-7) 

= water vapor pressure (mb) 

ESAT = 269782133 exp (-4271 071252/{T -f- 242 626)) (IV-8) 

= least square fit to the Smithsonian psychrometric tables 
from 0° to 25 °C, using "dry bulb temperature" 

T = temperature (deg C) (from thermistor) 

%RH = 31 71 + 69 28 R - 18 58 R 2 

= least square fit to the published per cent relative 
humidity curve 

R = log (CALIB CRES) 
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CALIB = 1 - (1 - H) (1 - T/25) 

= linearly interpolated temperature correction to the 25° C 
curve 

H = 0 98599 - 0 36991 log CRES + 0 11159 (log CRES) 2 

= least squares fit to the temperature correction curves 
from 0° to 25°C 

CRES = RHYG/R33 = normalized hygristor resistance 
RHYG = Hygristor resistance (k ohm ) 

R33 = Hygristor resistance at 33% relative humidity and 25 “C. 

R33 is determined for each line and printed out with the 
helicopter calibration data 


Refractive Number N 

The refractive number N is calculated by the same formula (IV-2) 
as for the ground stations using Pres (IV-4), the velocity corrected 
pressure, e(IV-7) the water vapor pressure and T(IV-3) the temperature 
determined from the thermistor readings The refractive number N thus 
determined is assigned to the helicopter altitude as calculated in the 
next paragraph < 


Helicopter Altitude ALT 

The helicopter altitude 4LT X at point number v is determined in 
two distinct steps 

The first is the use of linearized integration of a barometric 
height formula, starting at the ground station from which the helicopter 
flies away This results in barometrically determined height increments 

h a - H *-l 


The helicopter barometric height is therefore given by 

1 = 1,2, E ( IV-9 ) 


H = ALT 
1 o 


+ E (H - H x ) 


where Ho = ALTo is the known elevation of the starting ground station and 
He is the resulting barometric height of the end marker elevation, which 
m general is different from ALT E , the known end marker elevation 


The second step consists of multiplying the barometric height H x 
by an adjustment factor HC, so that the barometric height difference 
of the end points is made equal to the known difference (ALT E - ALT 0 ), 
that is we set 


HC (H e - H q ) = ALT E - ALT o (IV-10) 

Note that on the return flight the previous end point becomes the new 
starting point for the integration and that the new end point is the old 
starting ground station and included m the barometric height calculation 
The barometric helicopter height % is calculated from the velocity 
corrected pressure Pj, (previously called Pres), the water vapor pressure 
e^^ and temperature T x from 'Humphrey’s formula" (Humphreys, 1940) 
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H. - H, = 18 4 log 




* 1-1 


[1+0 00367(T i _ 1 + T a )/2] 


'A- 1 


2H 




[1 + 0 378 * (p^ + fr) * H • 1 001958 (1 + -gg^) 


(IV-11) 


where pressures are measured in mbar, temperature in degrees C, and 
heights in km The final helicopter altitude thus becomes 


ALT^ = HC • H l 


(IV-12) 


and is printed out in the section "Reduced Helicopter Atmospheric Data" 
in the column "Adjusted ALT (KM)" and the adjustment factor HC appears 
at the end of that same section as "Multiplication Constant to 
Humphreys' Formula - " The "ALT (km)" column in the uncorrected 

helicopter line data is obtained from readings of the built- in 
helicopter altimeter (see Appendix I) 

The values of the refractive numbers Ni associated with the heights 
ALT X are the ones used in the next chapter to determine the mean 
refractive index n along the line 


Discussion 

As pointed out earlier ( page 25 ) one would like to see the 
altitude determination within + 3 m at sea level and + 4 m at some 
3000 m Since a number of empirically determined corrections affect 
the values of ALT some measure of confidence in the calculated values 
is required, but no direct statistics are available However, since 
each line is flown m the forward and return direction (up and down 
for brevity) two independently determined adjustment factors HC are 
available for each line and can be compared The difference between 
the "up" HC and the "down" HC thus provides a convenient measure of 
closure A difference of 0 0012 m HC, for example when taken over 
a 1-km elevation difference gives a difference of 1 2 meters at one 
of the end points Since the end points have been adjusted to the 
known marker elevation, half of that difference or 0 6 m at most 
could be expected at the mid point of the line 

It can be seen that on one of the most difficult lines (through 
the atmospheric inversion) from Pier to ARPA on June 20, 1977 the two 
HC values are (Appendix I) 0 996377 and 0 994761 that is a difference 
of 0 00162 When this difference is multiplied by the known elevation 
difference of 3033 58 - 2 28 = 3031 30 m, a discrepancy of 5 06 m 
remains Since the end points have been adjusted, half of that amount 
or 2 53- m error could be expected at mid altitude This value is 
within the required altitude tolerances 
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V MEAN REFRACTIVE INDEX AND FINAL 
MARKER-TO-MARKER CHORD DISTANCE 


Uncorrected "Range" data (D m ) are those directly read from the 
Rangemaster II display, which include the dialed-m offset (137 mm) 

A number of Range values are obtained with time Since oscillator drift 
has been a problem, the individual D m 's are first frequency corrected 

D = D m • 14 984 980/F (V-I) 

where F is either the directly measured frequency, or calculated as 
a function of supply battery voltage (BV (volts)) and the resistance 
of the thermistor (RTH (k ohm)) placed on the reference oscillator 

F = 14 984 980 +27 (BV - 12 5) - 84 3 + 12 73 RTH 

- 0 434524 RTH 2 (V-2) 

Following the frequency correction, individual length Ranges (D) 
are reduced from the lengths between the instrument and reflector 
on their tripods to the corresponding lengths between the benchmarks 

D B = / D 2 - A + CORR ( V-3) 

A = 2(1 - cos(are tan D/R)) (R + LOEL) (RH + IH) 

+ 2 (RH - IH cos (arc tan D/R)) (HIEL - LOEL) (V-4) 

CORE = ECC + ECD + OFF + LIN (V-5) 

where 

R = earth radius (6371 km) 

LOEL = elevation of lower marker 

HIEL = elevation of upper marker 

IH = height of laser (or reflector) above lower marker 

RH = height of reflector (or laser) above upper marker 

ECC = eccentricity (setup offset over marker) of laser 

ECD = eccentricity (setup offset over marker) of reflector 

OFF = reflector offset correction (-40 mm for our corner cubes) 

LIN = linearity correction of laser (m the basic 10-m interval) 

The marker- to -marker Ranges Dg appear in the computer printouts 
(Appendix I) under the heading "Reduced Range data m meters" and in 
the column "Frequency corrected " The marker-to-marker Ranges Db 
are then corrected to the marker-to-marker laser beam length 

d a = d b V s 


(V-6) 



where 


= refractive index assumed by the instrument (1 00030984) 


n = mean refractive index of the line 
1 N. + N 

n ~ 1 itTTIT ’ T /'“(TIT ^ 


'l-l 


HIEL - L0EL i “ 1 


(ALT - ALT .) 
l l-l 


10 


-6 


(V-7) 


= refractive number at elevation along the beam, each mean 
refractive number (N^ + N i _^)/2 is weighted with its 
relative section length (ALT^ - ALT i _^)/(HIEL - LOEL) 


The numerical integration to obtain the mean refractive index n 
was preferred over the "classical" polynomial model (as a function of 
the height H) approach because of the very sharp variation of n over 
short height intervals (see Figures in Appendix I) due to the inversion 
layer that occurs near 1500-m elevation (see section XIII on Alternate 
Mathematical Methods) 


The marker-to-marker curved beam length (D 4 ) is further reduced to 
the straight line marker-to-marker "Reduced Range" Dc by the amount of 
the "beam curvature correction” AD^ (Laurila, 1976, p 120) 


D c - d a - ad a 


iD A = 


k( 2 -k) • D° a 


24R 


(V- 8 ) 


(V-9> 


The value of k is obtained under the assumption of a linear gradient 
for the refractive index n between the two end points of the line 


n - n 

k = =i Ji R (V- 10 ) 

H L " H 1 

where 

n = refractive index 

H = elevation 

R = earth radius 

1 refers to the lower point and L to the higher point of the 
line 

The values of the straight line marker-to-marker reduced Range 
D c appear toward the end of the computer outputs for an individual line 
under the heading "Reduced Range data m meters" m the column 
"Reduced Range " The average of these individual Reduced Ranges appears 
as "mean corrected line length" together with the standard deviation 
of an individual "Reduced Range" and the "standard deviation of the 
mean" aj[ which could be considered to be the standard deviation of 
the line length In the computer printout also appears the mean 
refractive number N that served to calculate the curved marker-to-marker 
beam length (D^) 
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It should be clearly noted that reflects only the variations 
of D, the frequency corrected direct Range readings of the laser 
These variations are partially due to instrument noise, but also 
include any changes m atmospheric conditions during the time span 
data were taken The variation certainly does not reflect any 

(possibly systematic) errors in the individual determinations of the 
refractive index n along a line integrated to obtain the mean refractive 
index n Errors in the beam curvature correction are negligible since 
this correction is small As an example, m the Pier 2 to ARPA line 
with an elevation difference of 3 km and a distance of 30 km the correction 
is only around 8 to 9 mm 
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PLOTTING OF DATA 


Plotting the unreduced data aids in eliminating either erroneous 
readings taken m the field or mistakes in transferring the data to the 
computer input format Second, a graphic representation of the reduced 
data aides m interpreting the observations Last, the plots enable 
the analysis of field procedure. For example, the plots of wet bulb 
temperature indicate that sharp jumps in the temperature of about one 
degree Centigrade occur immediately after winding the fan and wetting 
the wet bulb of the psychrometers The plots indicate that a two- 
mmute delay in taking readings after this procedure would eliminate 
the sharp peaks m these data and thus reduce the standard deviation 
of the wet bulb temperature readings 

DATA lis written m FORTRAN IV computer language and is executed 
on the Harris Corporation VULCAN computer system Subroutines MPLOT, 
GNPLOT , AAXS, and TAXIS of the DATA 1 computer program (see computer 
printout) use XYNETICS plotting subroutines to write plotting instructions 
onto magnetic tape The tape is input to the XYNETICS 1100 automated 
drafting system which plots the data The XYNETICS 1100 has a plotting 
accuracy of better than 0 03 mm 

In writing the plotting program a generalized plotting subprogram 
has been developed which has two distinctive features First, the 
subprogram plots either decimal or time series data (the Y-axis can 
plot only decimal data, while the x-axis can plot either decimal or 
time series data) The time-axis annotation interval is set by the 
subprogram according to the time length of the data The time interval 
can be as small as ten minutes and as large as a month m length 
Second , in the case of decimal data, annotation values of only the 
significant part of the plot values are determined and annotated on 
the axes by the subprogram The annotation values are round numbers 
which allow quick and easy observation of the numerical changes in the 
data The non-significant part of the data is a number written out 
above each plot The plotting subprogram consists of subroutines 
MPLOT, GNPLOT, AAXS and TAXIS which accomplish the actions explained 
above The mam program (Appendix II, III) calls MPLOT and MPLOT 
calls the other subroutines 
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VII REDUCTION OF SPATIAL CHORD DISTANCES ONTO 
TRANSVERSE MERCATOR CONFORMAL PLANE 

This reduction is necessary to allow comparison between new laser 
distances and old U S Coast and Geodetic Survey or Hawaiian Government 
Survey distances determined by triangulation method decades or even a 
century ago It is also needed m conditional adjustment of quadri- 
laterals with diagonals and/or a center point (Section VIII) to 
determine the strength of figures composed of measured lines reduced 
onto a common plane 


Reduction 

The process of the reduction consists of two steps 1) reduction 
of the spatial chord distance of the measured laser line to an 
ellipsoidal arc distance, and 2) reduction of the ellipsoidal arc 
distance onto the Transverse Mercator conformal plane The ellipsoid 
used in computations is that of Clarke 1866 with the following 
parameters 


a = 6,378,206 4 m 
e 2 = 0 006768658 


Semimajor axis 
Eccentricity square 


(VII-1) 


The Transverse Mercator projection used as basis for the plane coordinates 
of the HGS and HTS has the following specifications, at the Zone 2 on 
the island of Maui 


CM = 156°40 ' Q0"W 
SR = 1 30,000 
SF = 0 999966667 


Central Meridian, (VII-2) 

Scale reduction at the central meridian. 
Scale factor at the central meridian 


The ellipsoidal arc distance d& is obtained as follows (Wong, 1949, 
Laurila, 1960, 1976) 


with 


[- 


12R 2 (D c 2 


(h n - h ) ) 




12 (R + h 2 )(R + hj_) - (D c * - (h 2 - 


MN 

M sm 2 A + N cos 2 A 


M 


(1 


a(l - e 2 ) 

2 2 ,,3/2 

- e sm $) ' 


(VII-3) 


(VII-4) 

(VII-5) 


N = 


... 2 2 . 1/2 
(1 - e sin 4>) ' 


*(VII-6) 


D c = spacial chord distance (Eq V-S) 
h l' ^2 ~ elevation of the terminal markers of the line 


where 
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R = radius of curvature of the ellipsoid at the azimuth 
A of the line 

A — azimuth of line (clockwise from the map north) 

M = radius of curvature of the meridian 

N = radius of curvature in the prime vertical 

= mean latitude of the terminal markers of the line 

Finally the ellipsoidal arc distance, d^, is reduced onto the 
Transverse Mercator plane by the following formula 


d A (0 999966667 + 


+ *1 X 2 + V 

6R 2 


(VII-7) 


where + X2 are the linear distances from the terminals of the line to 
the central meridian determined as explained in the following section 


Accuracy 


The errors introduced m the process of reduction of Eqs (VII-3)- 
( VII-7) are primarily caused by parameters to be measured or computed 
from existing data (maps), while the mathematics involved is rigorous 
to a high degree The total cumulative error is not a constant over 
a finite area such as the island of Maui, but is rather a function of 
several variable parameters The parameters affecting the accuracy 
of the total reduction are 

— length of line 

— elevation difference of the terminals of the line 

— latitudes of the terminals of the line 

— azimuth of the line 

— distances of the terminals of the line from the central 
meridian 

— curvature radius of the ellipsoid along the vertical 
projection of the line 

To illustrate the magnitude of errors of reductions in a typical 
long line, line #4 from Luke to ARPA is analyzed The parameters of this 
line given in approximations sufficient for the analysis are 


— length of the line 

— elevation difference 

— mean latitude 

— azimuth (clockwise from the 
map north) 

— terminal distances from the 
central meridian 


— curvature radius 


D = 31 km 
Ah = 3 km 
<f> = 21° 

A = 127° 

(VII-8) 

X^ = 16 9 km (Luke) 

X 2 = 41 9 km (ARPA) 

R = 6367 km 
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The cumulative standard, error of dy in Eq (VII-7) is obviously 
the total differential of the equation with terms added auadratically 
This is a valid statement because the measured quantities and thus 
their errors are mutually independent 

The error in d4 is a function of errors in R, hj_ and h 2 Errors in 
marker elevations hq and h 2 are treated separately later m the texx 
The error in R is composed of two sources — from the error made in 
determining the mean latitude <j> and from the error made m determining 
the azimuth A 

The latitudes of the terminal points can be directly obtained 
from the U S Coast and Geodetic Survey Form 28 BT if the terminal 
markers are those established by USCGS or HGS Otherwise, they are 
measured from 1 24,000 quadrangle topographic maps The standard 

error of the measurements can be assumed as a. - +0 ’2 which yields 
standard errors m N and M as follows ^ 


a N = + 0 001 km 
Gy = + 0 002 km 


(VII-9) 


The azimuth of the line can be directly obtained from the U S 
Coast and Geodetic Survey Form 769 under the condition stated above 
Otherwise it is determined by coordinates measured from the topographic 
map The standard error of the measured azimuth can be assumed as 
04 = +0 °2 Application of standard errors crjif, 04 into Eq (VII-4) 

yields Oft = +0 09 km This, m turn, when placed into Eq (VII-3) 
introduces the standard error m d 4 


= +0 3 mm 


(VII-10) 


The error in the reduction of the ellipsoidal arc distance onto 
the Transverse Mercator plane is composed of errors made in determination 
of Xq and X 2 m Eq (VII-7) These values can be obtained with 
sufficient accuracy directly from the TJ S Coast and Geodetic Survey 
Form 769, if available, as the X-coordmates of the terminal points 
Otherwise, they are determined by measurements from the topographic 
map By the estimate = a x = a x = — 0 025 lcra ’ the ' stantiard error 

of the K-f actor (second term in the brackets of Eq (VII-7)) will be 
m the sample line Luke-ARPA 

a K = +1 3 x 10 “ 8 (VII-11) 

Finally, the application of cr^ and into Eq. (VII-7) yields the total 
cumulative error of A 



= +0 5 mm 


(VII-12) 


While the cumulative standard error a . composed of the errors 

a M 

m the determination of the parameters 

and insignificant, the standard error in dj$ caused by errors m 
elevations hq and h 2 of the line terminals is very dominant With a 
slight approximation, irrelevant to this analysis, Eq (VII-3) can 
be differentiated into the familiar "height -base" ratio form as follows 


A’ 


*1 


and a v is very small 




+ 



2 i 
) 


2 


(VII-13) 
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where 

Ah 

is the elevation 

the distance, o. 

n l 

and 

cr. 

h 2 

Since 

in 

practice 

h l 

and 



"± 

Ah 

D 

/2 


difference between the terminal points, D is 
are the standard errors of the elevations 



a h’ Eq ("VI I -13) can be written 


(VII-14) 


At the present the elevations of all terminal points, excluding 
Pier 2, are obtained from old vertical angle measurements or third order 
leveling and are given with an assumed accuracy of + 0 1 m This value 
when substituted into Eq (VII-14) and applied to the sample line Luke- 
ARPA yields 

a. = + 13 7 mm (VII-15) 

A 

When the first order leveling will be available with an assumed accuracy 
of about + 1 cm, the corresponding standard error a . m “this sample 

A 

line will be about + 1 4 mm 

The derivation of Eq (VII-3) utilizes some series approximations 
However, their total effect m the 31- km sample line is only + 04 mm, 
or 1 3 x 10”°, which proportional error diminishes rapidly m shorter 
lines 
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VIII. CONDITIONAL ADJUSTMENT ON THE TRANSVERSE 
MERCATOR CONFORMAL PLANE 

An assessment of possible errors on some measured lines can be 
obtained, independent of errors discussed already in Chapters III, 

IV, V and VII, based on examination of geometrical figures (composed of 
a number of lines) that are overdetermined For "simplicity" this is 
done in a plane (rather than m three dimensions) Errors in reducing 
the chord lengths onto a plane have been discussed m the preceding 
Chapter (VII) 

For those readers who are not fully familiar with the least squares 
conditional adjustment, especially applied to line measurements, m 
the following we have slightly amplified the narrative beyond that 
necessary to present essential bare facts In this attempt we are 
following the text by Hirvonen (1971, Chapter 7) 

In a plane a quadrilateral is fully determined by five elements 
which can be lines, angles or a combination of both As an example 
four sides and a diagonal determine the quadrilateral If the four 
sides and two diagonals are measured (with errors) all line lengths 
can be adjusted to satisfy all geometrically imposed relations or con- 
ditions Since m the example (four sides, two diagonals) there is 
one element of overdetermination, one "condition equation" has to be 
found (from relations imposed by the geometry) There is an infinite 
number of line length corrections that satisfy the geometrical constraints 
Therefore, one particular type has to be chosen The choice is made 
by requiring that the sum of the (weighted) length corrections squared 
is a minimum, resulting m a uniquely determined solution for which the 
length corrections give a measure of the errors m the measured line 
lengths 

On the island of Maui we have two overdetermined figures The 

figure m the Hana area is a quadrilateral with two diagonals The 

second very elongated figure stretches from the Kahului area (Pier, 

Luke) to the summit of Haleakala (Puu Niamau, 4RP4) and has two. 
diagonals and four additional lines from an inner point (Kikalapuu) 
to the corners (see Fig VIII-1) This last figure is thus three 
times overdetermmed, therefore, requiring three condition equations 
for adjustment, resulting in additional strength of the figure determina- 
tion This additional strength is important since the figure connects 
the LURE observatory on Haleakala to stations in West Maui, another 
land mass, in a direction almost perpendicular to the Molokai fracture 
zone, a direction m which movement with time might be suspected 

For this type of conditional adjustment we followed the method 
presented by Hirvonen (1971, p 91) to determine the coefficients of 
the corrections 


Quadrilateral 

(measured 4 sides, 2 diagonals) 

When the four sides and the two diagonals are measured, there is 
one overdetermination Let us designate the four corner angles (counter- 
clockwise, Fig VIII-1) by A, B, C, D corresponding to the four measured 
sides AB, BC, CD, DA and two diagonals AC and BD The angles are given 
by the cosine law m corresponding triangles as 
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A = arc cos 


AD 2 + AB 2 - DB 2 
2* DA- AB 


C = arc cos 


B = arc cos 


CB 2 + CD 2 - DB 2 
2-CB-CD 


AB 2 + BC 2 - AC 2 
2-AB-BC 


(VIII-1) 


D = arc cos 


CD 2 + AD 2 - AC 2 
2 -CD- AD 


and are functions of the different line lengths only The obvious 
condition, therefore, is that after the (least squares) adjustment 
of each line the sum of the corner angles adds up to 360° Since the 
line lengths are in error, the sum of the angles from Eq (VIII-1) 
results m a "measured" closure error id 

A + B + C + D — 360 — to 


or 


(VIII-2) 


F(AB, BC, CD, DA, AC, BD) = id 

which is reduced to zero after the adjustments etc of the individual 

lines 


F(AB + 6 ab , , BD + <S BD ) = 0 (VIII-3) 

Developing F of (VIII-3) into a Taylor series around (AB, ,BD) and 
breaking off at the first term (using F = F(AB, , BD) 


F( AB 

+ 6 AB’ 

,BD + 

fi BD> = 0 








(VIII-4) 

S _ + 

11- 6 

+ HI 

<S + 5 

+ m 6 

+ m 6 =o 

AB 

SBC BC 

3CD 

CD SDA DA 

SAC °AC 

SBD °BD u 


In this equation the partial derivatives are calculated from Eqs 
(VIII-2) and (VIII-1) and are constant values obtained from the length 
measurements The closure error, F = ui also is a value obtained through 
(VIII-2) (using (VIII-1)) and the measured lengths The S's are 
determined m such a way that the sum of their weighted squares is a 
minimum 

Using for further discussion a^ for the partial derivatives, and 
<$i for the line length adjustments (i = 1,2, 6) in the same order as 

in (VIII-4) and remembering that F = w (VIII-2) (VIII-4) becomes the 
condition equation for the line adjustments 6 

F(AB + 5 1 , , BD + 6 0 ) = <d + S a i = 0 (VIII-4a) 


In the nomenclature of geodesists the partial derivatives are 
designated - 1/k , where xy givesthe line with respect to which the 

differentiation has been taken The k's represent different normals 
from angles to sides in the figure (see Hirvonen, 1971, p 91), a fact 
that plays no importance in the mathematical development, but shows more 
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or less directly m Eq (VIII-4) how much of a relative importance each 
line adjustment plays to reduce the closure error to aero As an 
example let's take 



8F 

3AB 


for line AB, where k^g is the normal from the intersection of the diagonals 
to the line AB In the very elongated quadrilateral spanning Kahului 
to Haleakala, the short normals are associated with the long lines and 
these long lines will therefore be adjusted by larger amounts, whereas 
the short lines (with long normals k and small 1/k's) will play a much 
smaller role m the adjustment (m addition to the weight that is 
attached to the measurements of the lines) We now return to the 
mathematical development to determine the line length corrections 6 1 

In addition to Eq VIII-4 or 4a (reducing the closure error to 
zero) the o-j/s could be the weighted least squares solution, that is the 
sum of their weighted squares should be minimum 


Since the two conditions are independent of each other, any linear 
combination of the two (for the same variables 6 1 ) will lead to the same 
result If we designate by the weight to be attached to the square 
of line length # 1 , the function 

6 6 

S = £ • E p 6 S + K, (w + E a <5 ) (VIII-5) 

i=l 1 1 1 1 i=l 1 1 


is minimized by setting the partial derivatives of S with respect to 
the variables 6 equal to zero 



Vj 


+ K,a 

1 J 


0 


or 


= _ h*i 


J = 1,2, 6 


(VIII-6) 


Since the 5, have to satisfy (VIII-4a) to reduce the closure error to 
zero substituting Sj from (VIII-6) into (VIII-4a) determines the 
"condition correlate" 

6 6 a 2 

u + E ad = ai - E K, = 0 

i=l 11 1=1 1 p i 


or K, = -V- (VIII-7) 

A 

“ P 

l 

Since on the right hand side, oj of Eq VIII-7 and the a^s are constants 
determined from rhe measured line lengths and the weights p! for each 
line are determined from physical considerations, substituting from 
VIII-7 to VIII-6 gives the line length adjustments 
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6 

3 





(VIII-8) 


One measure of the error involved m this total adjustment is the standard 
error of unit weight (Hirvonen, 1971, Eq (7 14)) 


a 



(VIII-9) 


where r is the number of condition equation, r = 1 m this case The 
last equation can be reduced by using Eqs (VIII-8) and (VIII-7) to 


a 



(VIII-10) 


Quadrilateral 

(Measured 4 sides, 2 diagonals, 4 lines from one 
interior point to the corners) 


In this case a total of n = 10 lines are measured Since the number 
of lines required to fix the geometrical relation between the 5 points 
is u = 7, the number of independent conditions for adjustment is found 
to be 


r = n - u = 3 


The geometrical figure of the quadrilateral is fixed by the four 
outside lines and one diagonal (say AC, see Fig VIII-1) The position 
of the interior point E is then fixed by two lines from the corners 
(say AE and DE) Adding then the diagonal BD requires one condition 
for adjustment Adding further the line BE requires an additional 
condition, and adding line CE calls for a third condition Using each 
time the new line m the condition equation adds an element not previously 
used and thus makes the successive condition equations independent 
of each other, and together with the minimization of the sum of the 
(weighted) squares of the line legnth corrections allows a unique 
solution 


In addition to the angles A, B, C, D m Eq (VIII-1) the following 
angles are required for the new condition equations 


For Wg 


AEC = 

arc 

cos 

AE 2 

+ 

CE 2 - 

AC 2 


2 

AE CE 


CED = 

arc 

cos 

DE 2 

■f 

CE 2 - 

CD 2 


2 

DE .CE 


DEA = 

arc 

cos 

DE 2 

+ 

o 

AE 2 - 

rrc a xr 

J> 

a 

w 


BED 


For 

= arc cos 


BE 2 + DE 2 - BD 2 
2 BE-DE 


CED 


(VIII-11) 


2 2 
BE CE - 

2 BE*CE 


BC 


BEC = arc cos 
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Fig VI1I-1 
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The equations for the closure error now read similar to (VIII-2) 

(AB, BC, CD, DA, AC, BD) = A + B + C + D - 360° = < 1 ^ 

F 2 (CD, DA, AC, AE, CE, DE) = AEC + CED + DEA - 360° = tt > 2 (VIII-12) 

F 3 (BC, CD, BD, BE, CE, DE) = BED + BEC + CED - 360° = Wg 

The closure errors <02 anc * 013 are reduced to zero by the 
adjustments fi xy to the individual 10 lines 

(AB + 5 ab , , BD + S DB ) = 0 


F„ (CD + 6 m , , DE + S--) = 0 


(VIII-13) 


Fg (BC + , , DE + S BB ) 0 

The Taylor series development of the three F *s similar to (VIII-4) 


3F 9F, 3F 3F, 3F, 3F-. 

F 1 + 3AB 6 AB + 3BC 6 BC + 3 CD 6 CD + 3DA 5 DA + 3AC S AC + 3BD 6 BD 


(VIII-14) 


3F, 3F 9 3F_ 3F_ 3F 3F 

*2 3 CD °CD 3DA °DA 3 AC AC 3AE °AE 3CE °CE 3DE °DE 

3F 3F 3F 3F, 3F, 3F 

F 3 + 3BC 5 BC + 3CD fi CD + 3BD 6 BD + 3BE 5 BE + 3CE 6 CE + 3DE* 6 DE = ° 

For further equations we number the lines from 1 to 10 m the order 
AB, BC, CD, DA, AC, BD, AE, BE, CE, DE and call the partial derivatives 
in Eq (VIII-14) a^, a 2i and a^ where 1 = 1,2, ,10 Since not all 

of the a.^, a 3l and a g ;L appear m (VIII-14) we set the nonexisting 
ones = zero, that is 

a 1;L = 0 for 1 = 7,8,9,10 

a 2i = 0 for 1 = 1 , 2 , 6, 8 

a„ =0 for 1 = 1,4, 5, 7 


The three condition equations for the 10 line adj ustments <5^ 
corresponding to (VIII-14a) then read 


F^ (AB + 6 ] ., , DE + o 10 > = + Z a^iS^ = 0 


(VIII-14a) 


i = 1,2,3 

1 = 1,2, 


10 
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The £ ls minimized for the same S^'s as the three independent 

f^CAB + 5^, , DE + (S^q) Therefore similar to (VIII-5) we minimize 

S = 4 Z Pi 5 ! 5 ! + K i (“i * E 


+ K 2 (u 2 + E a 2i 6 1 ) 


(VIII-15 ) 


+ K 3 (« 3 + S a 3l 6 l ) 

by setting the partial derivatives of S with respect to 6^ equal to zero 


3S 

35. 


P J 6 J + K 1 a lj + K 2 a 2j + K 3 a 3j = 0 


or 


a, 

-5 - + K, -41 + 

3 1 P. 


- k 2 ~ + k 3 
P J 2 P 3 3 P J 


(VIII-16) 


Substituting for 5j from the last equation back into the condition 
Eqs. , (VIII-14a) results m three "normal" equations for the three 
unknown "condition correlates" , K 2 and 

2 

a. a, a 0 a. a_ 

K, E ~~ + K„ E ■ la 21 + K„ E 11 31 - u>, = 0 
1 p 2 p 3 p 1 


3- 0 3,- 3- n a,„ 

h. 1 + h l ~f^ +K 3 l: ~ u 2 = o 


(VIII-17) 


3,n 3.-, 2* n 3- n 

K Z 3a 11 + K E - 3 4 21 - + K„ E -5i- - «, = 0 
1 p, 2 p 3 p 3 


Substituting the three solutions of K, back into (VIII-16) then 
gives the line adjustment 6 X 


The "standard error of unit weight" is given by 


a 


^ p rvi 

/r 


/ +£ 1 ft) 1 + Kg m 2 + K 3 
/3 


(VIII-18) 


After considerable discussion on the use of the weights p x , it was 
decided to set them equal to 1, because differences in the residuals 
obtained for the Luke-ARPA-Puu Nianiau Pier 2 quadrilateral with a 
centerpomt at Kilalapuu and the two diagonals by using either p = 1 
or p = 1/s 2 all were less than 2 mm and the a Eq (VIII-18) was about 
7 mm, after the elevation of the ARPA marker had been changed to minimize 
the adjustments (see Section XII) 

A sample output is presented at the end of Appendix I 
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IX SUMMARY OF THE LASER LINES MEASURED ON 
MAUI IN 1977 

In the following Table IX-1, a summary is given of all lines measured 
on the Island of Maui during the summer, 1977. The information given 
includes the number of line, date when measured, marker-to-marker chord 
distance, standard deviation oo of one reduced range distance from the 
mean standard deviation of the mean, %, and the final mean length of the 
line if several measurements were made The average number of laser range 
readings of all the lines was 47 


TABLE IX- 1 


NO. 

LINE 

DATE 

1977 

LINE LENGTH 
m 

“o 

rrm 

°M 

rrm 

Mean Line Length 
m 

1 

ARPA - LORE 

6-21 

227 301 

+16 2 

+3 4 




7-28 

227 297 

9 5 

1 3 

227 299 

2 

Mees - LURE 

6-21 

119 481 

2 4 

0 4 




7-28 

119 501 

3 8 

0 5 

119 491 

3 

ARPA - Mees 

6-21 

247 954 

8 5 

1 2 




7-28 

247 960 

5 0 

0 7 

247 957 

4 

Luke - ARPA up 

6-15 

31,397 898 

2 6 

0 6 



down 

6-15 

31,397 916 

4 2 

0 6 

31,397 907 

5 

Pier 2 - ARPA up 

6-21 

30,291 514 

4 4 

1 0 



down 

6-21 

30,291 514 

3 7 

0 7 

30,291 514 

6 

Luke - Puu Nianiau up 

6-21 

28,842 961 

3 4 

0 5 



down 

6-21 

28,842 962 

5 4 

1 3 

28,842 962 

7 

Pier 2 - Puu Nianiau up 

6-21 

27,068 889 

5 2 

1 3 

27,068 889 

8 

Luke - Kikalapuu ud 

6-17 

20,699 236 

6 5 

1 2 



down 

6-17 

20,699 242 

4 9 

0 8 

20,699 239 

9 

Pier 2 - Kikalapuu up 

6-20 

19,349 018 

8 2 

1 0 



down 

6-20 

19,349 024 

6 7 

1 6 

19,349 021 

10 

Kikalapuu - ARPA up 

7-26 

11,111 220 

2 5 

0 4 



dcxvn 

7-26 

11,111 227 

3 3 

0 6 

11,111 224 

11 

Kikalapuu - Puu Nianiau un 

7-26 

8,745 329 

2 8 

0 4 



down 

7-26 

8,745 336 

1 9 

0 4 

8,745 333 

12 

ARPA - Puu Nianiau 

7-28 

7,278 940 

9 4 

1 4 

7,278 940 

13 

LURE - Puu Nianiau 

7-28 

7,349 130 

9 7 

1 1 

7,349 130 

14 

Luke - Pier 2 

4-28 

3,274 260 

1 9 

0 3 




4-28 

3,274 260 

2 6 

0 4 

3,274 260 

15 

Luke - Wailuku North 

4-28 

2,469 156 

1 6 

0 2 




5-1 

2,469 157 

1 6 

0 6 




5-1 

2,469 155 

1 6 

0 3 

2,469 156 

16 

Pier 2 - Wailuku North 

5-4 

3,482 199 

4 4 

0 4 

3,482 199 


Luke - Puu Olai 


4 

- 28 

27,459 363 

4 1 

0 7 

4 

- 30 

27,459 367 

2 6 

0 3 

4 

- 30 

27,459 364 

4 4 

0 6 

6 

- 13 

27,459 367 

6 0 

0 5 


17 
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TABLE IX-1 (cont ) 


18 

Puu Mahoe - Puu Olai up 

6-17 

5,883 510 

1 2 

0 3 



down 

6-17 

5,883 510 

1 2 

0 3 

5,883 510 

19 

Puu Olai - Lighthouse 

4-30 

6,900 462 

3 8 

0 4 




4-30 

6,900,465 

2 6 

0 4 

6,900 464 

20 

Puu Mahoe - Lighthouse up 

6-17 

5,589 869 

4 8 

1 1 



down 

6-17 

5,589 873 

1 7 

0 7 

5,589 869 

22 

Puu Mahoe - La Perouse 

4-29 

4,512 956 

1 5 

0 2 




4-29 

4,512 956 

1 6 

0 2 

4,512 956 

23 

Mees - Lighthouse up 

7-26 

21,407 534 

4 9 

0 9 



down 

7-26 

21,407 534 

5 8 

0 8 

21,407 534 

29 

Vfolfe's Bock - Hana Airport 

7 - 29 , 

3,023 884 

4 6 

0 7 

3,023 884 

30 

Waterpipe - Hana Airport 

7-29 

3,474 112 

5 5 

0 6 

3,474.112 

31 

Wolfe's Rock - Carter's Cliff 7-29 

1,989 646 

5 6 

0 6 

1,989 646 

32 ' 

Waterpipe —Carter's Cliff 

7-29 

1,986 969 

3 8 

0 5 

1,986 969 

33 

Carter's Cliff - Hana Airport 7-30 

2,353 456 

2 1 

0 3 

2,353 456 

34 

Wolfe’s Rock - Waterpipe 

7-30 

629 559 

4 0 

0 6 

629 559 

35 

Hana Cross - Hana Prior 

7-30 

1,344 476 

5 8 

0 8 

1,344 476 

36 

Hana Cross - North Hana Bay 

7-30 

1,567 160 

4 0 

0 5 

1,567 160 

37 

Hana Pier - North Hana Bay 

7-30 

911 663 

4 0 

0 5 

911 663 


In Table IX- 2 all of those lines 

are given 

which are 

involved either 

in 

the comparison of the old 

Hawaiian 

geodetic i 

md the new 

laser 

survey 


or m the computation of coordinates in the present trilateration 
network All lines are given" as spatial chord distances, ellipsoidal 
arc distances, and HTM plane distances in meters - 
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TABLE IX- 2 


Spatial Chord Ellipsoidal Arc Plane 

Distance Distance Distance 


1 

ARPA - LURE 

227 

299 

226 

668 

226 

666 

2 

Mees - LURE 

119 

491 

119 

113 

119 

112 

3 

ARPA - Mees 

247 

957 

247 

749 

247 

747 

4 

Luke - ARPA 

31,397 

907 

31,252 

266 

31,251 

588 

5 

Pier 2 - ARPA 

30,291 

514 

30,132 

223 

30,131. 

,599 

6 

Luke - Puu Nianiau 

28,842 

962 

28,769 

051 

28,768 

443 

7 

Pier 2 - Puu Nianiau 

27,068 

889 

26,984 

017 

26,983 

473 

8 

Luke - Kikalapuu 

20,699 

239 

20,687 

295 

20,686 

788 

9 

Pier 2 - Kikalapuu 

19,349 

021 

19,333 

215 

19,332 

759 

10 

Kikalapuu - ARPA 

11,111 

224 

10,871 

767 

10,871 

607 

11 

Kikalapuu - Puu Nianiau 

8,745 

333 

8,641 

298 

8,641 

175 

12 

ARPA - Puu Nianiau 

7,278 

940 

7,214 

236 

7,214 

161 

13 

LURE - Puu Nianiau 

7,349 

130 

7,282 

968 

7,282 

893 

14 

Luke - Pier 2 

3,274 

260 

3,272 

955 

3,272 

860 

15 

Luke - Wailuku North 

2,469 

156 

2,469 

110 

2,469 

037 

16 

Pier 2 - Wailuku North 

3,482 

199 

3,480 

808 

3,480 

707 

17 

Luke - Puu Olai 

27,459 

365 

27,458 

940 

27,458 

162 
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X COORDINATE COMPUTATIONS OF THE TERMINAL 
POINTS OF THE LASER LINES 


To make it possible to monitor the actual annual movements (direction 
and distance) of the LURE Observatory with respect to the various laser 
line terminals on the west slope of Mt Haleakala, we have computed the 
coordinates of the laser terminals together with the coordinates of the 
LURE observatory The computation is based on the adjusted laser line 
lengths on the Hawaiian Zone 2 Transverse Mercator Plane (HTM) The HTM 
plane coordinates X and Y are computed on that plane, the geographic 
coordinates $ and X are computed on the Clarke 1866 reference ellipsoid, 
and the earth centered Cartesian ("Space Rectangular") coordinates X, 

Y, Z are computed m space with reference to the Clarke 1866 ellipsoid 

The computations on the plane are carried out in the following way 
The HTS triangulation marker Luke (L) was selected as the reference 
center of the coordinate -system with the HGS marker at Puu Nianiau (PN) 
serving as the azimuth reference The plane coordinates of the two 
markers were obtained from the USCGS Form 609 The azimuth A, - pN 
from Luke to Puu Nianiau thus will be given by L ^ 


sm A r 


AX 


PN 


(AX 2 + AY 2 )* 


cos A 


AY 

L - PN " (AX 2 + AY 2 )* t*" 1 ) 


where AX = Xp N - X^ and AY = Y pN - Y^ 

The plane coordinates of the Puu Nianiau marker m the laser-determined 
system are then obtained as follows . 


*PN ^L + ^-PN Sln A L-PN 
Y PN = Y L + d L-PN C0S A L-PN 


(X-2) 


where d L _ pN is the adjusted and properly centered laser line length L - PN 

on the plane The coordinates of any other point with known distances from 
L and PN can then be determined m the same coordinate system by the 
following way (see Laurila, 1976, pp 210, 211) With reference to 
Kikalapuu, for example, we have 


X K = X L + X' K 


Y x = y l + x 'k 


AX 

1 L-PN 
AY 

3 L-PN 


- Y’ 


+ Y' 


AY 

i L-PN 

AX 

J L-PN 


(X-3) 


In Eq 3, X' K and Y' K are plane coordinates of Kikalapuu given in the 

rectangular coordinate system Luke as the origin and the positive x-axis 
coinciding with the line Luke-Puu Nianiau Before application to Eq 3, 
X'g. and Y' k are obtained from the following formulas 


, 2 , 2 j 2 

L-K - PN-K + L-PN 


2 d. 


L-PN 


= ±(d. 


L-K 


- X' 


2.i 


(X-4 ) 
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where the sign of Y'k depends on which side of the auxiliary X’ axis the 
new point is located If any point cannot be seen simultaneously from 
Luke and Puu Nianiau, another "baseline” can be found from already 
determined new coordinates and Eqs 3 and 4 can be applied as before 

On the island of Maui the local Transverse Mercator map plane is 
utilized by the USCGS in such a way that the origin of the Y-coordinate is 
located at latitude 4> = 20°20' and the central meridian is assigned the 
scale factor value of 0 999966667. The Universal Transverse Mercator 
formulas to compute geographic coordinates $ and X from the plane 
coordinates X and Y (see Laurila et al , 1969) are therefore modified 
as follows 


The so-called "foot-point latitude" of a parallel which crosses the 
central meridian at the distance Y from the equator is first found by 
iterative process from the equation 


Y/0 999966667 + 2,249,134 918 = (1 - i e 2 - — 


- <f 02 + 35 ^ + iMd g6) Sln 2 *1 


45 „6^ 

1024 6 > Sln 4 h 


35 6 a . 

3072 e Sln 


(X-5) 


where a is the semimajor axis of the Clarke 1866 ellipsoid and e is the 
eccentricity square The final coordinates <j> and X will then be 


= h . 


tan 4^ (AX/0 999966667) 2 tan 4^(5 + 3 tan 2 4 ^) (AX/0 999966667) 4 

2 ^ + 


(AX/0 999966667) 
N-j^cos 4>2 


(1 + 2 tan 4n ) (AX/ 
6 N^ 2 cos 4 1 


AX/0 999966667) 


(X-6) 


where AX = X - 152,400 3 and X = 156° 40' 00 "0000 - AX 

The formulas to compute the earth-centered Cartesian coordinates can 
be found from any standard textbook m mathematics 

X = (N + H) cos 4 cos X 

Y = (N + H) cos 4> sin X (X-7) 

Z = (N (1 - e 2 ) + H) sin 4> 

where X is in the equatorial plane towards the Greenwich meridian (X = 0), 

Y is toward X = 90 °E, and Z toward the north pole and X positive to the 1 
east 

Coordinates were computed for all laser terminals which formed 
closed triangles or more complex figures to be tied to one common trx- 
lateration network Those terminals were Wailuku North, Luke, Pier 2, 
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Kikalapuu, Puu Nianiau, ARPA, Mees, and LURE Of the 8 terminals, Luke, 
ARPA, Puu Nianiau, Pier 2, and Kikalapuu formed a quadrilateral with 
Kikalapuu as the center point All lines m this figure were adjusted by 
the combined least squares conditional adjustment of a quadrilateral with 
diagonals and a center point (see VIII) All lines terminating to Luke 
were given eccentricity corrections to correct the line lengths from the 
UH marker to the HTS marker at Luke 

Table X-l tabulates The reduced laser line lengths on the Hawaiian 
Transverse Mercator (HTM) plane, adjustment correction, d„, eccentricity 
correction, d E , and the final plane distances to be used as input m the 
coordinate computations, Eqs 1-7 All distances and corrections are 
given m meters 


TABLE X-l 


No 

Line Reduced Line Length 

<3A 

°F! 

Final Line Length 

4 

Luke - ARPA 

31,251 588 

-0 006 

40 020 

31,251 602 

8 

Luke - Kikalapuu 

20,686 788 

40 008 

40 072 

20,686 868 

6 

Luke - Puu Nianiau 

28,768 443 

-0 002 

40 135 

28,768 576 

14 

Luke - Pier 2 

3,272 860 

—0— 

40 480 

3,273 340 

15 

Luke - Wailuku North 

2,469 037 

-0- 

40 312 

2,469 349 

12 

ARPA - Puu Nianiau 

7,214 161 

-0 001 

-0- 

7,214 160 

5 

ARPA - Pier 2 

30,131 599 

+0 004 

-0- 

30,131 603 

10 

ARPA - Kikalapuu 

10,871 607 

+0 002 

-0- 

10,871 609 

3 

ARPA - Mees 

247.747 

-0- 

-0- 

247 747 

1 

ARPA - LURE 

226 666 


-0- 

226 666 

2 

LURE - Mees 

119.112 

-0- 

-0- 

119 112 

7 

Puu Nianiau - Pier 2 

26,983 473 

-0 001 

-0- 

26,983 472 

11 

Puu Nianiau - Kikalapuu 

8,641 175 

+0 003 

“0— 

8,641 178 

13 

Puu Nianiau - HIRE 

7,282 893 

—0“ 

— 0 — 

7,282 893 

9 

Pier 2 - Kikalapuu 

19,332 759 

-0 004 

-“•O'* - 

19,332 755 

16 

Pier 2 - Wailuku North 

3,480 707 

—0— 

—O— 

3,480 707 


In Table X- 2 the computed plane coordinates X and Y, the geographic 
coordinates ij> and and the earth-centered Cartesian coordinates X, Y, 
and Z are given, together with the elevations, H, of the laser line 
terminals From the Cartesian coordinates the marker -to-marker spatial 
chord distances were computed for the lines m Table X-2 to detect any 
computational or procedural errors made during the long process 
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TABLE X- 2 





HTAI Plane Coordinates 
X Y 

Geographic Coordinates 
<i> X 

Wailuku North 

99 

70 

169,287 

755 

63,323 975 

20° 54' 18 

"98465 

156° 30' 15 

"62664 

Luke 

93 

84 

169,836 

967 

60,916 476 

20°53'00 

"67856 

156°29'56 

"70865 

Pier 2 

2 

28 

172.679 

107 

62,540 359 

20°53'53 

"38016 

156° 28' 18 

"30556 

Kikalapuu 

755 

40 

187,452 

500 

50,070 302 

20°47'07 

”08278 

156°19 '48 

"01819 

Puu Nianiau 

2087 

90 

196,029 

256 

49,017 108 

20°46 ! 32 

”18231 

156°14'51 

"56382 

ARPA 

3034 

34 

194,662 

605 

41,933 580 

20°42’41 

"95232 

156°15’39 

"42804 

Mees 

3040 

99 

194,799 

857 

41,727 326 

20°42'35 

"23409 

156° 15’ 34 

"70265 

LURE 

3049 

74 

194,863 

264 

41,828 159 

20°42' 38 

"50781 

156°15'32 

"50264 


TABLE X-II (Cont ) 



X 

Cartesian Coordinates 

Y Z 


Wailuku North 

-5,466, 

,776 

796 

-2,376,529 

752 

2,261,502 

499 

Luke 

-5,467, 

,340 

605 

-2,377,371 

090 

2,259,250 

267 

Pier 2 

-5,465, 

,598 

295 

-2,379,714 

623 

2,260,732 

143 

Kikalapuu 

-5,464, 

,410 

649 

-2,395,296 

294 

2,249,322 

254 

Puu Nianiau 

-5,462, 

,451 

262 

-2,403,802 

752 

2,248,791 

331 

ARPA 

-5,466, 

,115 

547 

-2,403,901 

352 

2,242,502 

749 

Mees 

-5 ,466, 

133 

081 

-2,404,058 

510 

2,242,311 

759 

LURE 

-5,466, 

,082 

326 

-2,404,105 

766 

2,242,409 

067 


of reductions from the original spatial chord distances back to the same 
distances via the Cartesian coordinates The equivalent distances were 
compared after the original chord distances were compensated with the 
adjustment corrections and the following spatial eccentricity corrections 

Line Correction 

Luke - ARPA +0 108 m 

Luke - Kikalapuu +0 102 m 

Luke - Puu Niamau +0 200 m 

Luke - Pier 2 -0 454 m 

Luke - Vailuku North +0 312 m 

The analysis revealed that after the reduction process spatial chord 
distances-ellipsoidal arc distances-plane distances-plane coordinates- 
ellipsoidal coordmates-Cartesian space coordinates-spatial chord 
distances, the average difference between the computed and the original 
distance was 0 9 mm and the maximum difference was 2 0 mm. 


The conditional least squares adjustment, a basis for the line lengths 
used m the coordinate computations has been performed m three different 
combinations adjustment of Luke-4RP4-Puu Nianiau-Pier 2 quadrilateral 
with diagonals only (1 condition) with the standard deviation of one line 
measurement, a = + 4 mm, adjustment of the above quadrilateral with center 
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point only, Kikalapuu as the center (1 condition) with the standard 
deviation of one line measurement, a = + 7 mm, adjustment of the 
above quadrilateral with combined diagonals and center point (3 
conditions) with the standard deviation of one line measurement, 
o = + 7 mm In the coordinate computations, the corrections to the lines 
were those taken from the last combination of adjustments 

At this stage it is to be emphasized that the standard deviations 
stated above merely indicate the uncertainties in the line lengths composed 
of the combined effects of errors in line measurements and errors m the 
station elevations This part is intended to serve primarily as a guide- 
line for the procedure to be followed After the National Geodetic 
Survey has completed the first order levelling on ilaui all line lengths 
and coordinates will be recomputed 



XI COMPARISON BETWEEN OLD HAWAIIAN TRIANGULATION 
DISTANCES AND PRESENT LASER DISTANCES 


During the process of the 1977 laser survey on the island of Maui, 
four old Hawaiian geodetic tnangulation points have been occupied and 
data obtained for comparison The tnangulation stations are Luke, 
established in 1912 by the Hawaiian Territorial Survey (HTS), Puu Olai, 
established by the Hawaiian Government Survey (HGS) in 1879 and resur- 
veyed by HTS in 1929, Kikalapuu, established m 1950 by HTS, Puu Nianiau, 
established by HGS m 1877 Also, a permanent retroref lective prism was 
set at the tnangulation station Hanakauhi, established by HTS in 1950 
Laser survey to this point has not yet been made These five stations 
provide five lines for comparison, (see Fig II-l) namely 

No Line 

6 Luke - Puu Nianiau 

8 Luke - Kikalapuu 

11 Kikalapuu - Puu Nianiau 

17 Luke - Puu Olai 

27 Puu Nianiau - Hanakauhi 

In Table Xl-la the plane coordinates X and Y of the tnangulation 
stations m the Transverse Mercator , Hawaiian Zone 2 are obtained from 
the U S Coast and Geodetic Survey Form 709 Coordinates are converted 
from the original units of feet to meters directly without assigning 
the central meridian a new reference value The geographic coordinates 
<j> and X and the elevations are obtained from USCGS Form 28 BT and have 
been recomputed to add the fourth and fifth decimal m seconds of arc 
m <ji and X 


TABLE XI- la 


Station 

Elevation 

H 

m 

X 

m 

Y 

m 

$ 


X 


Luke 

92 90 

169,836 967 

60,916 476 

20°53'00 

”67856 

156° 29' 56 

"70865 

Puu Olai 

109 60 

174,822 112 

33,915 163 

20° 38 '22 

"43766 

156° 27 r 05 

"47173 

Kikalapuu 

755 40 

187,452,832 

50,070 238 

20°47'07 

"08065 

156° 19' 48 

"00673 

Puu Nianiau 

2087 90 

196,029 638 

49,016 935 

20°46'32 

"17664 

156* 14' 51 

"55064 

Hanakauhi 

2715 00 

202,855 513 

44,891.956 

20*44 ' 17 

"42063 

156° 10’ 55 "98465 


In Table Xl-lb the earth-centered Cartesian coordinates X, Y, and Z 
are computed, together with the curvature radii N of the prime vertical 
for each tnangulation point The reference ellipsoid used to compute 
X, Y, and Z as a function of <J>> X and the elevation H is that of Clarke 1866 with 
the semi-major axis, a = 6378,206 4 m and the eccentricity square, 
e 2 = 0 006768658 (Chapter VII) 


TABLE XI -lb 


Station 

N 

m 


X 

111 


Y 

m 


Z 

m 


Luke 

6,380,951 

105 

-5,467,340 

605 

-2,377,371 

090 

2,259,250 

267 

Puu Olai 

6,380,890 

099 

-5,474,156 

Oil 

-2,385,740 

403 

2,234,001 

635 

Kikalapuu 

6,380,926 

472 

-5,464,410 

538 

-2,395,296 

607 

2,249,322 

193 

Puu Nianiau 

6,380,924 

045 

-5,462,451 

165 

-2,403,803 

126 

2,248,791 

168 

Hanakauhi 

6,380,914 

686 

-5,461,582 

868 

-2,410,870 

104 

2,245,136 

867 



In Table XI-2 distances between the HGS and HTS markers are given 
for checking purpose and for further use m three systems, namely 

(a) marker-to -marker chord distance (reduced laser line) 

(b) distance along ellipsoidal surface (geodetic distance) 

(c) distance on the TM plane (map distance) 

The marker-to-marker distance is obtained directly from the Cartesian 
coordinates, X, Y, and Z Similarly, the map distance is obtained 
directly from the plane coordinates X, and Y To determine the 
geodetic distance along the ellipsoidal surface, the following formula 
was adapted (Laurila, 1976, pp 117 and 215) 

[ ■ 2 it 2 

4N^Ng cos cos sin — y + (N-^ cos 4 > ^ “ Ng cos <> 9 ) 

"T 4 d 2 

+ (1 - e 2 ) 2 (N, sin T - N 9 sin i ^) 2 + (IX-1) 

X 1 2 24 24 R 

m 

where the subscripts refer to the terminals of the line, hi is the longi- 
tude difference between the terminal points and R m is the mean curvature 
radius In Eq (XI-1) the bracket term represents the ellipsoidal 
chord distance and equals d(-. The derivation of d^ is rigorous and 
exact The second term represents the ellipsoidal chord-to-arc reduction 
and is correct within one-half millimeter at any laser line on Maui 

The mean curvature radius R is obtained from the following formula 

m 

= (M • N)* ( IX-2) 

where M is the meridian curvature radius Since R m is not sensitive 
in the small correction term, Eq IX-l,_the following values of M and 
N at Puu Nianiau were adapted 

M = 6343 1 km 
N = 6380 9 km 

for the island of Maui, yielding the mean curvature radius 

R = 6362 0 km 
m 


TABLE XI-2 


Line No 

lone Location 

Plane Distance 
m 

Ellipsoidal 
Distance m 

Chord Distance 
m 

6 

Luke - Puu Nianiau 

28,768 995 

28,769 604 

28,843 577 

8 

Luke - Kikalapuu 

20,687 184 

20,687 692 

20,699 664 

11 

Kikalapuu - Puu Nianiau 

8,641 241 

8,641 364 

8,745 399 

17 

Luke - Puu Qlai 

24,457 650 

27,458 430 

27,458 852 

27 

Puu Nianiau - Hanakauhi 

7,975 464 

7,975 512 

8,003 127 



At stations Kikalapuu and Puu Nianiau, laser and the reflector were 
set exactly on the HTS and HGS markers At stations Luke, Puu Olai, and 
Kanakauhi University of Hawaii brass markers were offset from the HTS 
and HGS markers as follows 

At Luke, the UH marker is 0 94 m above the HTS marker 
The bearing from Puu Nianiau to UH marker observed 
clockwise at the HTS marker is Aq = 285°14'46" and 
from Puu Olai similarly A 2 = 230°26'50" The distance 
from the HTS marker to UH marker is s = 0 513 m 

At Puu Olai, the UH marker is 0 50 m above the HGS 
marker The bearing from Luke to UH marker observed 
clockwise at the HGS marker is A = 148® 28' The distance 
from the HGS marker to the UH marker is s = 0 659 m 

At Hanakauhi, the UH marker is 0 39 m above the HTS 
marker The bearing from Puu Nianiau to UH marker 
observed at the HTS marker is A = 0°00' The distance 
from the HTS marker to the UH marker is s = 3 785 m 

Prior to the comparison between the old Hawaiian geodetic surveying 
and the present laser surveying, all laser line lengths were reduced 
to HGS and HTS new marker-to-marker distances This was achieved by 
utilizing the above offset constants to give dX and dY corrections to 
the laser determined plane coordinates X and Y, to give d<{> and dX 
corrections to the laser determined geographic coordinates $ and X, 
to give d<|> , dX , and dH corrections and consequently dX, dY, and dZ 
corrections to the laser determined Cartesian X, Y, and Z coordinates 

In Table XI-3, final line lengths and their differences are given, 
for checking purpose, in the above three systems 


TABLE XI-3 


Line 

Old Geodetic Survey 

Laser Survey 

Laser-Old Survey 


IN CARTESIAN SYSTEM 


Luke - Puu Nianiau 

28,843 577 

28,843 158 

-0 419 

Luke - Kikalapuu 

20,699 664 

20,699 348 

-0 316 

Kikalapuu - Puu Nianiau 

8,745 399 

8,745 336 

-0 063 

Luke - Puu Olai 

27,458 852 

27,458 476 

-0 376 


IN (2XX21APHIC SYSTEM 


Luke - Puu Nianiau 

28,769 604 

28,769 184 

-0 420 

Luke - Kikalapuu 

20,687 692 

20,687 375 

-0 317 

Kikalapuu - Puu Nianiau 

8,641 364 

8,641 301 

-0 063 

Luke - Puu Olai 

27,458 430 

27,458 051 

~0 379 


IN PLANE SYSTEM 


Luke - Puu Nianiau 

28,768 995 

28,768 576 

-0 419 

Luke - Kikalapuu 

20,687 184 

20,686 868 

-0 316 

Kikalapuu - Puu Nianiau 

8,641 241 

8,641 178 

-0 063 

Luke - Puu Olai 

27,457 650 

27,457 273 

-0 377 
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The obvious correlation between the residuals and the line length 
suggests that there is significant scale error present m the old Hawaiian 
triangulation network From each of the four lines the scale correction 
factor was computed yielding the following values 

Luke - Puu Nianiau K =» 0 99998544 

Luke - Kikalapuu K = 0 99998472 

Kikalapuu - Puu Nianiau K = 0 99999273 

Luke - Puu Olai K = 0 99998626 

Since the scale correction factor from the line Kikalapuu - Puu Nianiau 
differed essentially from the rest, a weighted mean was computed with the 
squares of distances as weights This produced a common scale correction 
factor, K = 0 99998585 This factor was applied to the marker-to-marker 
distances (in the Cartesian system) yielding the following results 

Line Old Geodetic Survey Laser Survey Laser-Old Survey 

Luke - Puu Nianiau 28,843 169 28,843 158 -0 011 

Luke - Kikalapuu 20,699 371 20,699 348 -0 023 

Kikalapuu - Puu Nianiau 8,745 275 8,745 336 40 061 

Luke - Puu Olai 27,458 463 27,458 476 +0 013 

Figure XI-1 shows the differences between the old line lengths and 
the one measured by the present laser survey as given m Table XI-3 The 
straight line drawn m this figure fits the 3 longest lines within plus 
or minus 2 3 cm The older line measurements are about 1 4 cm/km longer 
than the new ones The 6-cm deviation from (the scale factor) line for 
the distance Kikalapuu-Puu Nianiau, however, is not explained and may be 
due to some motion of the Kikalapuu bench mark 


cm OLD MINUS LASER SURVEY 



0 10 20 30 km 


LINE LENGTH 

Fig XI-1 



XII. DETERMINATION OF STATION ELEVATION BY LASER 
Spacial Intersection 


The elevation of ARPA m the Luke quadrilateral, H = 3033 51 m, was 
initially obtained by a local differential levelling from the nearby 
HGS triangulation point Kolekole The elevation of Kolekole, H = 3051 60, 
is based on vertical angle trigonometric measurements made m 1876 
While executing a conditional adjustment of the quadrilateral Luke, 
Kikalapuu, Puu Niamau, and Pier 2, the standard deviation of one line 
measurement after adjustment proved to be + 4 mm When ARPA was added 
into the adjustment as a new corner point m the quadrilateral with 
Kikalapuu as the center point, the standard deviation after the adjust- 
ment became + 38 mm 

This phenomenom clearly indicated that the elevation of Kolekole 
and consequently that of ARPA was significantly m error To find a 
better value for ARPA elevation, among other alternatives, the following 
spatial intersection procedure was adapted According to Chapter X, 
the Hawaiian Transverse Mercator plane coordinates X and Y were first 
computed for Luke, Kikalapuu, Puu Niamau, and Pier 2 based on the 
adjusted line lengths in this quadrilateral (ARPA excluded) From the 
plane coordinates, the geographic coordinates 4 > and \ were computed 
and finally, the earth centered Cartesian coordinates determined by the 
geographic coordinates and elevations were used to intercept ARPA from 
Luke, Kikalapuu,, and Puu Niamau (for checking purpose also from Pier 2, 
Kikalapuu, and Puu Niamau) 

The spatial, marker-to-marker chord distances from Luke, Kikalapuu, 
and Puu Niamau were used to determine the Cartesian coordinates Xa, 

Y^, and Za of ARPA by simple simultaneous solunon of three unknowns 
and three equations The line Luke- ARPA, for example, yields the follow- 
ing equation 

D \-A = < X A - -V 2 + < Y A ~ Y L> 2 + < Z A - Z L> 2 

This equation was linearized by writing the square terms m the unknown 
X A , Y a , and Z A as 

(X A - x L > 2 = (X A - x L ) ( x A - x L ) 

and replacing one of the X^'s on the right hand side by an approximate 
value Xa. so that 

(X A - X l ) 2 = X a (X a - X L ) - X L (X A - X L ) (XII-2 ) 

and similarly for the Y and Z terms so that finally 

D \-A + *L< X A " V * Y L< Y A - V + Z L< Z A - Z L> 


= X A < X A - V + Y A (Y A - Y L> + Z A (Z A - V (XII - 3 > 

is linear in Xa, Ya, Za and the left hand side is constant From the 

three Eqs of the form (XII-3), Xa, Ya and Za were obtained by iteration 
The final longitude of ARPA is obtained directly from the Cartesian 
coordinates as follows 
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A 


R 


-1 A 
tan (^) 


(XII-4) 


The final latitude, 4 > A , can be obtained from the following formula (see 
Laurila, 1976, p 197) 


*A = 


tan 


-1 


{ a + , y 

l b + u> 


ZjSinl 


(XI 1-5) 


where H is the approximate (original) value for H, a and b are semimajor 
and semiminor axes of the Clarke 1866 ellipsoid 


The new elevation of ARPA 
checking purpose) 


H a = 


H 


A COS <j)£ cos A^ 
Y A 


cos 4> A sin X A 


H. = 


A SU <f> . 


- N a (1 


is the H obtained from Xa (Ya an< ^ Za £° r 
N a (X1I-6) 


where N A is a function of (Eq 5) 

After the execution of this spatial intersection process, a new 
value for the elevation of ARPA was found, Ha = 3034 34 m When this 
value, in turn, was applied to the conditional adjustment of the 
quadrilateral with the center point, the standard deviation of one line 
measurement after adjustment was reduced from + 38 mm to + 7 mm Pour 
iterations were needed to reach an agreement m X^, Y 4 , and Z 4 within 
0 1 mm 


Minimization of Quadrilateral Adjustment 

An alternative to the spacial intersection method to obtain the 
ARPA station elevation consists of minimizing the standard error a in 
the adjustment of the quadrilateral with diagonals and center point bjr 
the variation of the ARPA elevation, holding all other elevations fixed 
For a given ARPA elevation, the measured laser line lengtns are first 
projected on to the Hawaiian Transverse Mercator plane The projected 
line lengths are then adjusted (Chapter VIII) resulting in a standard 
deviation that depends on the chosen height for ARPA Figure XII-1 
shows the standard deviation as a function of ARPA elevation The 
indicated minimum of cr is near the elevation of 3034 30 meters, a few 
centimeters lower than the value of 3034 34 adopted to compute the final 
1977 ARPA position from the intersection method 

The results indicate that, given the topography of the quadrilateral 
Luke, ARPA, Puu Nianiau and Pier 3 with the center point at Kikalapuu, 
elevations of other points could be obtained within a few centimeters by 
the use of laser line length measurements In the case of the ARPA 
height determination the geometrical figure of the quadrilateral is rather 
ill-shaped as can be seen m Figure VIII-1 that is drawn to scale The 
angle ECB at ARPA (C) is very small and small changes for example in the 
height of Luke (B) and especially Kikalapuu (E) would rotate the figure 
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along AD and result m nearly twice that change for ARPA 

Given that the adjustment of the quadrilateral with diagonals and 
center point in the Mercator plane has three conditions (see Chapter VIII), 
minimizing this adjustment by variation of the elevation of two of the 
five points is possible However, at this point we prefer to await the 
results of the first order leveling, to be carried out by the National 
Geodetic Survey We also plan to expand the figure by adding a few 
extra points (to the left and right in Figure VIII-1) 


6 (mm) UNIT WEIGHT OF QUADRILATE RA L 

ADJUSTMENT 



HEIGHT 3034m + SCALE VALUE 


Fig XII-1 
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XI-II ALTERNATIVE METHODS IN DETERMINING -THE MEAN REFRACTIVE 
INDEX AND THE FINAL MARKER-TO-MARKER DISTANCE 


To be used as backup methods m troubleshooting or just for the 
sake of general interest, the following alternatives are presented 

The reduction of the individual length Ranges D between the laser 
and the reflector to the corresponding length Ranges D between the 
benchmarks is presented in Eq V-3 The reduction can also be made by 
utilizing the following formula 

D b = D> + AD . (XIII-1) 


The correction term AD is determined as follows 


AD 


[D(l 


R 

R + (h„ + h T )/2 


) + 




(h L “ 


V 1 


(XIII-2) 


where 


R = earth radius (6371 km) 


H t = benchmark height of the laser station 

ll 

H R = benchmark height of the reflector station 

h^ = height of the laser optical center from the benchmark 

h R = height of the reflector center from the benchmark 


Derivation of Eq XIII-2 is based on simple, closed formulas The 
ultimate sign of the correction is obtained directly, as is the case 
also by utilizing Eq V-3 

To compare the mutual agreement of these two approaches, the line 
Pier 2 - ARPA was selected as the basis for comparison with the following 
data 

D = 30 291 km 


H L = 0 0023 km 
H R = 3 0335 km 


hj^ = 0 001365 km 
h_ = 0 000807 km 

K 

The results by using Eqs V— 3 and 4 and XIII-2 m the computation of 
AD yielded AD. = 50 68 mm and AD 2 = 50 67 mm, respectively This 

comparison indicates that the two approaches, in effect, produce identical 
results 


To find out the validity of a polynomial approach m determining the 
mean refractive number N under various atmospheric (inversion) conditions, 
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all long lanes were computed by utilizing this approach also, m addition 
to numerical integration 

The basic concept is to determine the refractive number N at various 
altitudes h by using Eq IV-2 and ground/helicopter-based observations 
of temperature, pressure, and humidity By placing the computed N-values, 
together with the given altitudes into the following formula, 

N = A + Bh + Ch 2 + (XIII-3) 


the unknown coefficient A, B, C can be solved by a least squares 
curve fit to the desired degree The mean refractive number between the 
terminal altitudes h and h^ is obtained by the expression, 


N = 




N dh 


(XIII-4 ) 


and thus, its value in terms of an instantaneous model atmosphere may be 
written as follows 


N = A 


(h 2 2 - h 2 ^ 
2<h, - h, ) 


(h 2 3 - h 1 3 ) 

B + - 3 ( h, - b c + 


(XIII-5) 


One advantage of this approach lies in the fact that m absence of a 
closure checkup achieved by flying the line at least twice, the strength 
of the model (standard error of N) is directly obtainable from the least 
squares solution The summary of this procedure is as follows The 
standard deviation of one point-to-point ^-measurement (standard devia- 
tion of unit weight) is 

n 2 

%„ ’ [ttt ] 1 < nlI - 6 > 

where V;l is the residual obtained as the difference between the observed 
N 0 values, determined as a function of T, P, and e (Eq IV-2), and the 
Nc-values, computed by utilizing the polynom (XIII-3) and the solved 
coefficients A, B, C, , n is the number of observations, and u is 
the number of unknown coefficients 

The standard error of the mean refractive number, cr^, is then obtained 
as follows 


a N ( % (XIII-7) 

o 

where is the weight number of the function N Its value, according 

to the standard error propagation, is 


% 


— = f ’ 
N I A 


Qaa + f - 2 ' Q 


B ^BB 


f ' 2 * Q 
I C y CC 


++ 


2f A f B- 


*AB 


2f A f c' Q 4C 


2 f B f i‘ Q BC +++ 


(XII 1-8 ) 



where Q AA , Q BB are the weight and correlation numbers of the 

coefficients A, B, C . , and f ' , f', f are their partial derivatives 

Applied in the type of polynomial we are using in this comparison 
study, Eq XIII -8 yields the following form* 


%N = + f t 


■AA 


h n - h, 1 °BB + 9 [ h, 


h 3 2 - h\ 

h, ] Q CC ++ 


fa2 2 - ^1 a * 3 2 - 

- h ] q ab + t t -c - ET 1 Q AC + 7 t 


h 2 - h l 


JL ,(h 8 2 - h 2 !)(h 3 2 ~ h 3 x ) 
Ch 2 - h ^ 2 


%c ++ 


(XIII-9) 


A total of 11 lines were measured with the aid of a helicopter f Lying 
along the lines observing the T, P, and e data Ten lines were flown m 
both directions In Table 1 the mean refractive number from numerical 

integration and N M from atmospheric modelling, together with their 

differences AN are presented Also, the standard error cr^ of the mean 

W 

refractive number N^ is included In the case of the atmospheric 
modelling sixth order polynom was used m every line measurement 


TABLE XIII- 1 


NO 

lane 

«N 

% 

AN 

% 

4 

Luke - ARPA up 

238 8 

238 7 

-0 1 

40 1 

4 

Luke - ARPA down 

238 3 

238 2 

-0 1 

0 1 

8 

Luke - Kikalapuu up 

266 3 

266 3 

0 0 

(0 03) 

8 

Luke - Kikalapuu down 

266 1 

266 1 

0 0 

(0 03) 

6 

Luke - Puu Nianiau up 

249 1 

249 1 

0 0 

0 1 

6 

Luke - Puu Nianiau down 

249 1 

249 2 

40 1 

0 1 

5 

Pier 2 - ABPA up 

239 5 

239 0 

-0 5 

0 2 

5 

Pier 2 - ARPA down 

239 2 

239 1 

-0 1 

0 1 

7 

Pier 2 - Puu Nianiau 15 ) 

250 5 

250 7 

40 2 

0 1 

9 

Pier 2 - Kikalapuu up 

267 0 

266 8 

-0 2 

0 1 

9 

Pier 2 - Kikalapuu down 

266 8 

266 8 

0 0 

0 1 

10 

Kikalapuu - ARPA up 

230 3 

230 1 

-0 2 

0 2 

10 

Kikalapuu - ARPA down 

229 6 

229 8 

40 2 

0 2 

11 

Kikalapuu - Puu Nianiau up 

242 1 

242 1 

0 0 

0 1 

11 

Kikalapuu - Puu Nianiau down 

241 5 

241 5 

0 0 

0 1 

18 

Puu Mahoe - Puu Olai 15 ) 

267 4 

267 3 

-0 1 

(0 04) 

18 

Puu Mahoe - Puu Olai down 

267 4 

267 3 

-0 1 

0 1 

20 

Puu liahoe - Lighthouse up 

268 6 

268 6 

0 0 

(0 03) 

20 

Puu Mahoe - Lighthouse down 

267 9 

267 9 

0 0 

0 2 

23 

Jfees - Lighthouse ip 

239 8 

239 7 

-0 1 

0 1 

23 

Mees - Lighthouse down 

239 1 

239 1 

0 0 

(0 04) 



From the 11 lines, 'Pier 2 - ARPA up' was the most unsuitable for 
atmospheric modelling because of the extremely strong temperature 
inversion At the altitude of 1,880 m the temperature was 5 °3 C 
higher than at the altitude of 1,560 m and was the same as the temperature 
at the altitude of 770 m Also, the helicopter was unable to reach 
ARPA and turned off the line at an altitude of 2,2235 m leaving an 
altitude gap of 800 ra without T, P, and e data On the night when the 
line 'Mees - Lighthouse' was measured there was no noticeable 
turbulence nor any anomalous temperature lapse rates In Table 2 the 
mean refractive numbers N^ are given as a function of polynoms with 

orders varying from 2 to 14 


TABLE XI I 1-2 


Order of Polvnom 


Mees - Lighthouse up 

Mees - Lighthouse down 

2 


239 73 

239 

17 

3 

- 

239 72 

239 

17 

4 


239 73 

239 

16 

5 


239 72 

239 

15 

6 


239 71 

239 

11 

7 


239 71 

239 

11 

8 


239 73 

239 

11 

9 


239 72 

239 

11 

10 


239 71 

239 

11 

11 


239 74 

239 

11 

12 


239 70 

239 

11 

13 


239 58 

239 

10 

14 


239 74 

239 

10 


The mean values were Ny up = 239 71 (from numerical_integration, 

N n = 239 81) and N y = 239 12 (from numerical integration, = 239 16) 

In the measurements of lines Puu Nianiau - ARPA, June 21, 1977 and 
July 28, 1977 and Puu Nianiau - LURE, July 28, 1977 helicopter could not 
be used to collect T, P, and e data because of tbe altitude and difficult 
topography In these cases two ground-based observation stations were 
set up, one at gravity calibration station #17 (H = 2,435 m) and the 
other at station #19 (H = 2,688 m), in addition to the stations located 
at the terminals of the lines Numerical integration and atmospheric 
modelling were established with the following results, given m Table 3 


TABLE XI I 1-3 


No 


Line 


n n 

N 

M 

AN 

° n m 

12 

Puu 

Nianiau - 

ARPA , June 

215 5 

215 5 

0 0 

+0 4 

12 

Puu 

Nianiau - 

ARPA, July 

211 7 

211 8 

+0 1 

0 2 

13 

Puu 

Nianiau - 

LURE 

211 1 

211 1 

0 0 

0 3 


The number of atmospheric samplings along lines flown by the heli- 
copter varied between 40 and 60, depending on the length of the line 
It was found out that, especially m turbulent inversion conditions, the 
computed N - values started to scatter if more than 10-12 terms were used 
Therefore, the 6th order polynom was selected as a standard 
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APPENDIX I 

Computer Outputs and Plots for Line #5 Pier to ARPA 
and Line #G Luke to Puu Nianiau 


The Appendix includes the computer outputs for line #5 (Pier to 
ARPA) on June 20, 1977 and line #6 (Luke to Puu Nianiau) June 21, 1977 
These are given as typical outputs and plots since many of the examples 
in the text have been drawn from these lines Each line was -flown 
with the helicopter twice, once up and once down Data taken during 
the flight up are treated independently from data taken during the flight 
down so that two independent measurements are obtained for each line, 
resulting m a total of four line measurements m this Appendix The 
output pages for each of the four are independently numbered by the 
computer In the following a more detailed description is given for the 
first output of line #5, where the time on June 20, 1977 on "page 1" 
left column, starts at 1“47™0 S 


Page I 

The page gives all uncorrected atmospheric measurements at the 
pier and details on the instruments used The header "Pier to ARPA" 
indicates that the laser was located over the pier marker, and ranging 
performed to the reflectors over the ARPA marker The barometer 
correction for the particular barometer n and pressure was read from 
Fig III-4 and is part of the input data The coefficients for the 
psychrometer thermometers corrections are stored in the computer and 
used to calculate corrected wet and dry temperatures Zeroes m the 
time column indicate that no readings were taken Interpolated time 
values are given under "Reduced Atmospheric Data" Only data between 
*s are reduced and plotted m Figure AI-1 as a function of time 
The first * is the synchronization signal, indicating that the 
helicopter is on the line This signal is communicated to all field 
parties taking measurements Time differences, that might appear at 
the reduced data blocs, are wrist watch errors example page 1 
indicates 1 H 58 M 00 (at the pier or laser station and page 2 indicates 
1 H 59 M 00 (at the ARPA or reflector station) and the helicopter itself 
indicates 2“00^00 on page 4 at the * value or on page 5, first value 
under "Reduced Helicopter Atmospheric Data " 

The last line of page 1 gives the mean refractive number 
N(276 9) that is used as the base station value The other mean values 
are the ones used as initial values for the calculation of the heli- 
copter altitudes during the flight up the line (Eq IV-9 to 12) starting 
at the "Elevation 2 28 m" of the marker also given in the header 


Page 2 


Page 2 contains atmospheric data similar to page 1 but taken at 
the reflector end of the line In addition, details of the reflector 
setup are given The reflector offset (of 40 mm) is the same for all 
our corner cubes used and therefore is a fixed value incorporated 
m the main program (Eq IV-5) The reduced data are plotted m 
Figure AI-2 versus time 


Page 3 

Page 3 gives the atmospheric data used to calibrate the helicopter 

probe 


Pages 4 , 5 , 6 

Page 4 and the first part of page 5 give uncorrected readings 
during the helicopter flight Zeroes m the time column indicate 
no readings taken, times for these rows in the "Reduced Helicopter 
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Atmospheric Data" are interpolated values Altitude readings (in km) in 
the uncorrected data are calculated values trora the helicopter 
altimeter (originally in feet) that are only used for a check, but not 
in any further computation The "Vel" column (50 mph) is used for the 
pressure correction (Eq, (VI -6)) All data values between *s are 

taken for reduction 

The "Reduced Helicopter Atmospheric Data" are presented on 
pages 5 and 6 and plotted m Figure AI-3 versus altitude Values in 
the columns Press, Temp, E are used to calculate the refractive 
number N that will be associated with the "Adjusted Alt " value (see 
Ch IV) The "N" and "Alt ” values together with the values at the 
laser and the reflector stations are used to obtain the mean refractive 
number N (second term of Eq (V-7)) The mean refractive number 
appears at the end of the computer output for the line (page 9 last 
line = 239 52) The final line, page 6, "Multiplication Constant 
to Humphrey's Formula = 0 996377" gives the adjustment constant HC 
m Eq (IV - 10) (see also discussion in Ch IV) 


Pages 7 and 8 

The header on page 7 contains the setup parameters and correction 
for the laser above the marker The linearity correction (2 mm) was 
read from Fig III-3 (lower curve) to the nearest mm This correction 
is taken at the 9 3 (or 19 3) meter point of the basic 10- m length 
interval of the uncorrected range (first value at 1^45^ is 30 289 378 m) 
"Uncorrected Range Data " 

The "Range" column gives the direct readings from the laser 
instrument The frequency difference column indicate's the measured 
difference to the nominal reference frequency of the laser Zero 
indicates no measurments are taken, but interpolated values are taken 
for reduction On different lines, the frequency difference might have 
been calculated as a function of battery voltage and the thermistor 
resistance (see Ch III and Fig III-2 and Eq (V-2)) Whenever the 
frequency was measured directly, it was used to make the line length 
corrections (Eq (V-l)) 


"Reduced Range Data m Meters " 

This bloc only shows reduced data calculated for those uncorrected 
data appearing between *s (that is during the time the helicopter 
was actually flying the line) 

Frequency corrected line length values are those that include 
all geometric setup and instrument or reflector corrections and 
reduction to marker-to-marker distance (that is, the values of Dg 
in Eq (V-3) These values are plotted in Figure AI-4 The "Reduced 
Range" values m addition include correction for refractive index 
(Eq (V-6) and beam curvature (Eq (V-8)) 

i 

The mean values for these two different ranges are printed at 
the bottom of the page The "frequency corrected range" mean is 
essentially the raw data marker-to-marker distance and when compared 
to the mean corrected line length allows checks on the consistency of 
the refractive number determinations from one time to another In 
this example one would look for the comparative figures taken during the 
return flight of the line on the bottom of the next line measurement 
"pier to ARPA" where on that page 4, line 2 is "helicopter line data 
flying from ARPA " For this length measurement (page 8 and Figure AI-8) 
the "mean line length without atmospheric corrections = 30289,384 
meters" compares to "the flight from the pier" value of 30289,392 
meters The difference is due to the variation of the mean refractive 
number 239 52 for the flight up (from pier) and 239 24 for the flight 
down (from ARPA) 

Similarly the data for the up and down flights from Luke to Puu 
Nianiau are given in the additional 2 sets of computer outputs and the 
plots Figure AI-9 through 16 
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LINE #5 PIER TO ARPA JUNE 20,1977 
REFRACTIVE NUMBER 270.0 + GRAPH VALUE 
PIER 

7 5 -- 

7 0 -- . • — 

6 5 -- 

6 0 J 1 j \ 

1 58 2 0 2 10 2 11 


VAPOR PRESSURE. 20 0M8 + GRAPH VALUE 


3 CO 
2 70 
2 40 


1 58 


— "F 
2 0 



2 10 2 11 


BAROMETRIC PRESSURE 1017.5MB + GRAPH VALUE 

0 00 - | ‘ — ■ 

1 58 2 0 



DRY TEMPERATURE . 23 OOEG. C + GRAPH VALUE 


0 3 
0 0 


1 58 2 0 

HR MN GMT-10HR 


i 

i 


2 10 




Fig AI-1 
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LINE #5 PIER TO PlRPA JUNE 20, 19 77 
REFRACTIVE NUMBER 205.0 + GRRPH VALUE 
RRPA 


0 6 
Q 3 
0 0 


1 59 


2 0 


— 1 
2 7 


VRPOR PRESSURES 3 OMB + GRRPH VRLUE 


1~59 2 0 


2 7 


BAROMETRIC PRESSURE. 711 OMB 4 GRAPH VALUE 


0 50 
0 40 
0 30 



DRY TEMPERATURE 6 OOEG C 4 GRRPH VRLUE 


1 0 
0 5 
0 0 


4- b— 

1 59 2 0 

Hrt MIN GMT-10HR 


2 7 


Fig AI -2 






LINE #5 PIER TG RRPfi JUNE 20, i977 
REFRACT WE NUMBER 205.0 - GPRPK VALUE 
RRFfi 


0 5 

0 3 -- 

0 0 — 
1.59 


LINE #5 PIER TG RR°R JUNE 20,1977 
REFRACTIVE NUMBER 270 0 - GRAPh VALUE 
PIER 




71 


~2 7 


2 10 2 1 1 
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LINE #5 PIER TC <?RFfl JUNE 20,1977 
REFRACTIVE NUMBER 00+ GRAPH VALUE 
PIER 

277 1 -] 1 • 1 

2 tl 2 20 2 27 
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LINE #5 PIER TO ARP A JUNE 20,1977 

REFRACTIVE NUMBER- 205 0 T GRAPH VALUE 
RRPR 


0 s -f- ' 

0 3 4 - 

o o 4- 1 — 1 S- 

2 13 2.20 2 30 2 31 


VRPGR PRESSURE. 0.0MB - GRAPH VRLUE 



BAROMETRIC PRESSURE: 710. OMS + GRAPH VRLUE 



DRY TEMPERATURE 6 ODEG. C + GRAPH VRLUE 


0 3 
0.0 


t • • 

2.13 

HR MIN GMT-10HR 


_J — 

2I20 


2 30 2 . 3 : 


Fig AI-6 







LINE #5 PIER TG RRPR JUNE 20,1977 
REFRACTIVE NUMBER- 205 0 - GRAPH VRLUE 
RRFR 



2 13 2 20 


LINE #5 PIER TG RRFR JUNE 20,1377 
REFRACTIVE NUMBER 0.0 - GRRPH VRLUE 
PIER 


UNC3RRECTE0 RRNGE 30289 3M t GRAPH VRLUE 

0 095 
0 090 
0 085 
0 080 
0 075 




u.u/u — | | 

2 12 2.20 

PR MIN GMT-10HR 

CORRECT D I ST s 3029 1 . 5 H M - 0. 00 1 SD : M 

C+O.OO^SDiY) 



Fig AI-8 


75 



2 10 


2 13 



DRY TEMPERATURE . 20 OQEG C t GRRFh VRLUE 



-<■.55 5 0 5 to 5 20 5 -8 

HR MIN GMT-10HR 


Fig AI-9 
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LINE £6 LUKE TO PUU NlANIAU JUNE 21,1377 
REFRACTIVE NUMBER. 220 0 t GRAPH VfiLUE 
PUU NlANIAU 



i i i i — i 

4 57 50 5 10 5 20 5 29 


VAPOR PRESSURE *0 OMB + GRAPH VRLUE 


5 40 
5 10 
4 80 




5 20 5 28 


BAROMETRIC PRESSURE 798.0 MS * GRAPh VALUE 



ORY TEMPERRTURE 10 ODEG. C - GRAPH VALUE 



H8 MIN GMT-10HR 


Fig 


AI-10 
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LINE #6 LUKE TO PUU NIPNIRU JUNE 21,1977 
REACTIVE NUMBER 220 0 - GPflPH VfiLUE 
PUU NIPNIRU 
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LINE #6 LUKE TO PUU NIRNIRU JUNE 21,1977 
REFRACTIVE NUMBER. 275,0 + GRAPH VALUE 
LUKE 

1 a -r 



0 0 -j- 1 _ 

5 30 5 40 5 4 8 


VRPGR FRESSURE 20 OHS t GRAPH VALUE 


3 00 
2. 70 
2 40 



5i30 5 40 


5 -*8 


BAROMETRIC PRESSURE iOOO.OMS - GRAPH VALUE 


8.00 
7 SO 
7 £0 



5.30 



5 48 


DRY TEMPERATURE . 20 ODEG. C + GRAPH VALUE 


2 5 -r- 

2.0 - = — 

1.5 -- 

1.0 

5 30 
HR.MIN 


5.40 


5 48 


GMT-10HR 


Fig. AI-13 
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LINE #6 LUKE TO PUU NIANIAU JUNE 21,1977 
REFRACTIVE NUMBER. 225 0 + GRAPH VALUE 
PUU NIflNIAU 



5 29 5:30 5 40 5 45 


/ 


VAPOR PRESSURE: 0.0 MB + GRAPH VALUE 


5 50 
5 20 
4 90 



I , i 

5 29 5 30 5 40 5 45 


BAROMETRIC PRESSURE 790.0 MB + GRAPH VALUE 


9 00 
8 90 
8 80 
8 70 


_L 


5 29 5:30 


s'io 


5 IS 



DRY TEMPERATURE- 10 0 DEG C + GRAPH VALUE 



5 29 5 30 5 40 5 45 

HR MIN GMT-10HR 


Fig AI-14 
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LINE #6 LUKE TO PUU NIRNIAU JUNE 21,1977 
REFRACTIVE NUM8ER 225 0 - GRRPH VALUE 
PUU NIRNIAU 


0.9 
0 6 
0 3 
0 0 



5.29 5 30 



5-10 


5 45 


LINE #6 LUKE TO PUU NIRNIflU JUNE 21,1977 
R£FRHC T IVE NUMSER 275 0 - GRRFH VRLUE 
LUKE 


1.0 -T- 

0 5 — • — — " " 

o 0 -I — i 1 

5 30 5 40 5 48 


UNCCRRECTED RANGE 2884 1.2M * GRRPH VALUE 



u 4 MIN GMT-10RR 

CCRRECT GIST. 28842. 962^-0 0C1SD-H 

C ±0. 005SD. Y ] 


Fig AI-16 
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LINE *5 PILE TO ARPA JUNE 20,1977 

ATMOSPHERIC DATA TAKEN AT PIEIl 
ELEVAT ION 2 2 81' I 
PSYCIIROMETER *1 BAROMETER «■ I 
BAROMETER CORRECTION. 0 05MBAR 
OBSERVERS. LAUR1LA 

UNCORRECTED DATA 

TIME WLT DRY BAROMETRIC COMMENTS 

lm MN SLC 1EMP TEMP PRTSIMB) 

1 47 0 20 7 28 4 1017 60 

0 0 0 20 6 28 4 1017 60 

0 0 0 20 7 23 5 1017 55 

1 52 0 20 5 23 7 1017 55 

0 0 0 20 5 23 7 1017 55 

0 0 0 20 7 23 7 1017 50 

1 58 0 20 7 23 7 1017 50k 

0 0 0 20 7 23 6 1017 50 

0 0 0 20 7 23 6 1017 45 

0 0 0 20 8 23 5 1017 50 

2 5 0 20 9 23 6 1017 50 

0 0 0 20 8 23 5 1017 50 

0 0 0 20 9 23 4 1017 45 

211 0 20 8 23 3 1017.45k 

REDUCED ATMOSPHERIC DATA 

TIME DRY BAROMETRIC E N COMMENTS 

HR MN SEC IEMP PRLSCMB) 


1 

58 

0 

23 

5 

1017 

55 

OO 

44 

276 

8 

1 

59 

45 

2!1 

4 

1017 

55 

00 

51 

276 

8 

2 

1 

30 

23 

4 

1017 

50 

22 

51 

276 

.8 

2 

3 

15 

23 

3 

1017 

55 

22 

80 

276 

9 

2 

5 

0 

23 

4 

1017 

55 

22 

95 

276 

8 

2 

7 

0 

23 

3 

1017 

55 


80 

276 

9 

2 

9 

0 

23 

2 

1017 

50 


09 

277 

0 

o 

1 1 

0 

23 

I 

1017 

50 

22 

94 

277 

1 

MEANS 


23 

3 

1017 

53 

22 

76 

276 

9 
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LINE #5 PIER TO ARPA JUNE 20,1977 

REFLECTOR. ATMOSPHERIC DATA TAKEN AT ARPA 
ELEVATION 3033 51M 

HEIGHT TO THE TOP OF THE TRI BRACT 520 MM 

HEIGH I FROM THE TOP OF THE TRIBRACH 

TO TIN CENTER OF THE REFLECTORS 287 MM 
TOTAL REFLFOTOR HEIGHT ABOVE THE MARKER 807 MM 
NUMBER OF REFLECTORS 21 
ECCENTRICITY OMM 
PSYCI1R0METER *3 BAROMETER *5 
BAROMETER CORRECTION 0 75 MB Alt 
OBSERVERS UOi FIS 

UNCORRECTEO DATA 



1 1 ME 


WET 

DRY 

BAROMETRIC 

COMMENTS 

HR 

NN 

SEC 

IEMP 

TEMP 

PRES( MB) 


1 

49 

0 

1 4 

6 9 

710 60 

CLEAR, WINDY 40 MPH WIND 

0 

0 

0 

-0 2 

7 0 

710 55 

W/GUSTS UP TO MAYBE 50 MPH 

0 

0 

0 

-0 4 

7.0 

710 55 


1 

50 

0 

0 5 

7 0 

710 65 


0 

0 

0 

0 6 

6 9 

710 70S 


2 

2 

0 

0 4 

6 0 

710 65 

REWOUND PSYC1I1W) METER 

2 

3 

0 

0 4 

6 9 

710 70 


o 

4 

0 

0.4 

7 0 

710 60 


2 

7 

0 

0 5 

6 9 

710 55 S 

R/R BATTERY, RFWOUND PSY 


REDUCED ATMOSPHERIC DATA 


TIME DRY BAROMETRIC IS N COMMENTS 

Hit MN SEC TEMP PRES (MB) 


1 

59 

0 

6 

5 

711 

45 

3 

73 

205 

7 


2 

2 

0 

6 

1. 

71 1 

40 

3 

59 

205 

0 

REWOUND PSYCHItONETER 

o 

3 

0 

6 

5 

71 I 

45 

3 

55 

205 

7 


2 

4 

0 

6 

6 

71 1 

35 

3 

50 

205 

6 


2 

7 

0 

6 

5 

71 I 

30 

3 

64 

205 

7 

R/lt BATTERY, REWOUND 

MEANS 


6 

.5 

711 

39 

3 

60 

205 

7 
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LINE #5 PrER TO ARPA JUNE 20,1977 

INITIAL CALIBRATION OF THE HELICOPTER HYGRISTOR AT PIER 
PSYCIIROMETER *4 BAROMETER *2 
BAROMETER CORRECTION -0.25 MBAlt 

CALIBRATION RESISTANCE OF THE HYGRISTOR- 95 0 KOIIM 
ZERO PRESSURE FREQUENCY OF DIG I QUARTZ 39303 70 IIZ 
OBSERVER SCIIENCK 

UNCORRECTED DATA 

TIME NET DRY THERM IIYGRIS BAROMETRIC DIGIQTZ COMMENTS 

Hll MN SEC TEMP TEMP (KOIIM) (ICOIHI) PRES( MB) FREQ (HZ) 

I 29 0 19.9 23 9 16 06 466 0 1016 65 35306 7 

0 0 0 19 9 23 9 16 07 469 0 1016 65 35306 B 

0 0 0 20 0 23 9 16 07 !36 0 1016 70 35306 B 

0 0 0 20 0 23. B 16 OB 50U 0 1016 70 35306 7 

1 36 0 20 0 23 B 16 07 504 0 1016 70 35306 B 

REDUCED DATA 

TIME DIGITAL DIGIQTZ DRY JTIEIl E E 
HR MN SEC PRESS PRESS TEMP TEMP GRND IILL I. 

I 29 0 1016 40 1016 31. 24 I 23.1 20 60 19 BB 

1 30 45 1016 40 1016 29 24 I 23 1 20 60 19 BB 

1 32 30 1016 45 1016 29 24 1 23 1 20. 02 20 07 

1 34 15 1016 45 1016 31 24 0"23 1 20 89 20 27 

1 36 0 10 16. '45 1016 29 ’24 0 23 1 20 09 20 26 
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LIKE #5 PIER TO ARPA JUNE 20,1977 
HELICOPTER LINE DATA. FLYING FROM PIER 
UNCORRECTED DATA 


time 


ALT 

VEL 

THERM 

DIGIttTZ 

1IYGRIS 

DR 

MN 

SEC 

(KM) 

Mi’ll 

KOIIM 

FREd (HZ) 

KOIIM 

2 

0 

0 

0. 

. 1 32 

50 

16 

63 

35414 

1 

450 

0* 

0 

0 

0 

0 

000 

0 

16 

68 

35436 

9 

517 

0 

0 

0 

0 

0 

000 

0. 

16 

87 

35448, 

. 1 

492 

0 

0 

0 

0 

0 

000 

0 

16 

72 

35453 

8 

433 

0 

0 

0 

0 

0 

000 

0 

16 

74 

35156 

I 

346 

0 

0 

0 

0 

0 

000 

0 

16 

75 

35470 

1 

338 

0 

0 

0 

0 

0 

000 

0 

16 

83 

35480 

4 

356 

0 

0 

0 

0 

0 

000 

0 

16 

99 

35499 

6 

41 1 

0 

0 

0 

0 

0. 

.000 

0 

17 

21 

35525 

0 

524 

0 

0 

0 

0 

0 

457 

50 

17 

33 

35540. 

.9 

6 10 

0 

0 

0 

0 

0 

000 

0 

17 

43 

35550 

9 

664 

0 

0 

0 

0 

0 

000 

50 

17 

60 

35565 

o 

*— l 

814 

0 

2 

3 

0 

0 

000 

30 

17 

69 

0 

0 

0 

0 

0 

0 

0 

0 

000 

50 

17 

92 

35611 

6 

1005 

0 

0 

0 

0 

0 

000 

50 

17 

96 

33638 

2 

984 

0 

0 

0 

0 

0 

000 

50 

18 

00 

35655 

7 

969 

0 

0 

0 

0 

0 

000 

50 

18 

17 

35672 

7 

981 

0 

0 

0 

0 

0 

762 

50 

18 

33 

35688 

4 

1005 

0 

0 

0 

0 

0 

000 

50 

18 

36 

35699 

8 

1024. 

0 

0 

0 

0 

0 

000 

50 

18 

39 

35702 

9 

1027 

0 

0 

0 

0 

0 

000 

50 

18 

54 

35 720 

4 

1072 

0 

0 

0 

0 

0 

850 

50 

18 

61 

3573 1 

7 

1060 

0 

0 

0 

0 

0 

000 

50 

18 

72 

3.>742 

5 

1129 

0 

0 

0 

0 

0 

000 

50 

18 

72 

35752 

7 

1127 

0 

0 

0 

0 

0 

9-15 

50 

18 

84 

35768 

1 

1 131 

0 

0 

0 

0 

0 

000 

50 

18 

96 

35787 

5 

1 182 

0 

0 

0 

0 

0 

000 

50 

19 

06 

35804 

2 

1 180 

0 

6 

0 

0 

0 

000 

50 

19 

10 

35820 

8 

1 167 

0 

0 

0 

0 

1 

097 

50 

19 

2 1 

35837 

9 

1 167 

0 

0 

0 

0 

0 

000 

50 

19 

29 

35853 

7 

1191 

0 

0 

0 

0 

0 

000 

50 

19 

33 

35865 

9 

1 191 

0 

0 

0 

0 

1 

189 

50 

19. 

47 

35879 

1 

1210 

0 

0 

0 

0 

0 

000 

50 

19 

62 

35894 

o 

127o 

0 

0 

0 

0 

0 

OoO 

50 

19 

57 

35925 

1 

1226 

0 

0 

0 

0 

0 

000 

50 

19 

81 

35941 

2 

1220 

0 

0 

0 

0 

1 

341 

50 

0 

00 

35960 

8 

1230 

0 

0 

0 

0 

0 

<8)0 

50 

20 

50 

35966 

0 

1319 

0 

0 

0 

0 

0. 

.000 

50 

20 

70 

3601 1 

5 

1 138 

0 

0 

0 

0 

0 

000 

50 

20 

00 

36034 

a 

172 

0 

0 

0 

0 

0 

000 

30. 

19 

90 

36055 

9 

75 

0 

0 

0 

0 

1 

67b 

50 

18 

70 

3609 1 

0 

24 

0 

0 

0 

0 

0 

000 

50 

18 

50 

3o 105 

3 

2-1 

0 

0 

0 

0 

0 

000 

50 

18 

70 

361 17 

5 

26 

0 

0 

0 

0 

0 

000 

50 

18 

80 

36126 

7 

20 

0 

2 

12 

0 

0 

000 

50 

18 

10 

36 138 

5 

17 

0 

0 

0 

0 

1 

707 

50 

18 

10 

36 142 

3 

17 

0 

0 

0 

0 

0 

000 

50 

18 

20 

36 143 

5 

19 

0 

0 

0 

0 

0 

000 

50 

18 

60 

Oo 146 

5 

19 

0 

2 

la 

0 

1 

029 

50 

18 

60 

36 156 

3 

18 

0 

0 

0 

0 

0 

000 

50 

18 

60 

36 170 

4 

18 

0 

0 

0 

0 

0 

000 

50 

18 

60 

36182 

7 

18 

0 

0 

0 

0 

1 

890 

50 

18 

70 

36 193 

1 

18 

0 

0 

0 

0 

0 

000 

50 

19 

00 

36233 

8 

18 

0 


COMMENTS 
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LIKE #5 PIER TO ARPA JUKE 20,1977 
UNCORREC'IED DATA 


TIME 

ALT. 

VEL 

THERM 

DIGIQTZ 

HYGR1S 

COMMENTS 

HR MK 

SEC 

(KM) 

NPII 

ICOIIM 

FREtt (HZ) 

Komi 


0 0 

0 

0 000 

50 

19 20 

36224 O 

19 0 


0 0 

0 

1 901 

50 

19 40 

36239 . 7 

19 0 


0 0 

0 

0 000 

50 

19 70 

36254 0 

21 0 

TURBULENCE 

2 14 

30 

2 134 

50, 

20 00 

36276 0 

21 OS 

TURBULENCE 


REDUCED HELICOPTER ATMOSPHERIC DATA 


TIME ADJUSTED PRESS 
IIIl NN SEC AL'l (KM) (MR) 


2 

0 

0 

0 

21953 

992 

44 

2 

0 

15 

0 

26755 

986 

96 

2 

0 

30 

0 

29122 

984 

27 

2 

0 

45 

0 

.30330 

982 

90 

o 

1 

0 

0 

30818 

982 

.35 

2 

1 

15 

0 

33792 

970 

90 

2 

1 

30 

0 

359 BO 

976 

50 

2 

1 

45 

0 

40093 

971 

07 

2 

2 

0 

0 

,45551 

965 

75 

2 

2 

15 

0 

48983 

961 

91 

2 

2 

30 

0 

51148 

959 

50 

2 

2 

45 

0 

54251 

956 

05 

2 

3 

0 

0 

59309 

950 . 

.45 

2 

3 

16 

0 

64393 

944 

04 

2 

3 

32 

0 

70258 

930 

40 

2 

3 

40 

0 

74141 

934 

17 

2 

4 

4 

0 

77928 

930 

05 

2 

4 

20 

0 

81437 

926, 

.24 

2 

4 

36 

0 

83993 

923 

48 

2 

4 

52 

0 

84690 

922 

73 

2 

5 

a 

0 

88631 

918 

48 

2 

5 

24 

0 

91184 

915 

74 

2 

5 

40 

0 . 

.93631 

913 

12 

o 

5 

56 

0 

95948 

910 

64 

2 

6 

12 

0 

99458 

906 

90 

2 

6 

28 

1 

03898 

902 

19 

2 

6 

44 

1 

07739 

898 

12 

2 

7 

0 

1 

11573 

094 

09 

2 

7 

16 

1 

15541 

889 

92 

2 

7 

32 

I 

19223 

086 

07 

2 

7 

48 

I 

22077 

883 

10 

2 

a 

4 

1 

25175 

079 

88 

2 

8 

20 

1 

28731 

876 

20 

2 

a 

36 

1 

36056 

868 

66 

2 

a 

52 

1 

39890 

864 

72 

2 

9 

0 

1 

4459 1 

859 

93 

2 

9 

24 

I 

45838 

858 

66 

2 

9 

40 

1 

56814 

847 

53 

2 

9 

56 

1 

6250 1 

04 1 

02 

2 

10 

12 

1 

67692 

836 

65 

2 

10 

28 

1 

76432 

828. 

04 

2 

10 

44 

1 

00087 

824 

48 

2 

1 1 

0 

1 

83126 

821 

53 

2 

1 1 

16 

1 

83161 

819 

27 

2 

12 

0 

1 

88473 

816 

37 


'IEHP 

i 

E 

N 

COMMENTS 

21 7 

17 

97 

271 

8 

21 5 

18 

.49 

270 

4 

21 1 

17 

.72 

270 

1 

21.4 

17 

53 

269 

4 

21 4 

16 

32 

269 

3 

21 4 

16 

17 

268 

4 

21 2 

16 

24 

267 

9 

20.0 

16 

59 

267 

0 

20 3 

17 

.09 

265, 

.8 

20 0 

17 

40 

264 

9 

19 7 

17 

47 

264 

5 

19 3 

17 

76 

263 

9 

19 1 

17 

88 

262 

5 

18.6 

17 

59 

261 


10 5 

17 

43 

259 

7 

18 4 

17 

28 

258 

6 

18 1 

16 

90 

257 

8 

17.7 

16, 

. 58 

257 

1 

17 6 

lb 

56 

256 

4 

17 6 

16 

50 

256 

3 

17 2 

16 

2/ 

255 

4 

17 1 

16 

09 

254, 

.7 

16 9 

15 

99 

254 

2 

16 9 

15 

99 

253 

5 

16.6 

15 

73 

252 

7 

16 3 

15 

58 

251 

6 

16 1 

15 

36 

230 

7 

16 1 

15 

25 

249 

6 

15 8 

(5 

02 

248 

7 

15 7 

14 

90 

247 

7 

15 6 

14 

82 

247 

0 

15 3 

14 

58 

216 

3 

15 0 

14 

40 

243 

6 

15 1 

1 4 

4 I 

243 

4 

14 5 

13 

90 

242 

7 

13 9 

13 

32 

242 

0 

13 3 

12 

90 

0.1,0 

2 

12 9 

12 

29 

239 

3 

14 2 

7 

64 

236 

8 

14 4 

4 

06 

235 

3 

16 9 

0 

00 

231 

1 

17 3 

0 

00 

229 

7 

16 9 

0 

00 

229 

3 

16 7 

0 

00 

228 

8 

18 2 

0 

00 

226 

8 
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LINE #5 PIEll '10 ARPA JUNE 20, 1977 
REDUCED 1TEL I COPIER ATMOSPHERIC DATA 


HR 

riME 
MN SEC 

ADJUSTED 
ALT (KM) 

PRESS 

(MB) 

TEMP 

1 


N 


COMMENTS 

2 

12 

15 

1 

HO 440 

015 

44 

10 

2 

0 

00 

226 

5 


2 

12 

30 

1 

09756 

015 

14 

10 

0 

0 

00 

226 

6 


2 

12 

45 

l 

90525 

014. 

.40 

17. 

1 

0 

00 

227 

1 


2 

13 

0 

1 

93040 

01 1 

00 

17 

1 

0 

00 

226 

4 


2 

13 

1 1 

1 

96672 

000 

53 

17 

1 

0 

00 

225 

5 


2 

13 

22 

i 

99054 

005 

50 

17 

1 

0 

00 

224 

6 


2 

13 

33 

2 

02554 

002 

04 

16 

0 

0 

00 

224 

1 


2 

13 

44 

o 

05060 

700 

01 

16 

3 

0 

00 

223. 

7 


2 

13 

55 

2 

10613 

795 

32 

15 

8 

0 

00 

222 

7 


2 

14 

6 

2 

14731 

701 

45 

15 

4 

0 

00 

ooo 

0 


2 

14 

17 

o 

10405 

707 

03 

14 

0 

0 

00 

22 1 

5 

TURBULENCE 

2 

14 

30 

2 

24522 

702 

30 

14 

2 

0 

00 

220 

3 

TURBULENCE 


MULT I PI I CAT I ON CONSTANT TO HUMPHREYS FORMULA 0 996377 
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LIKE #5 PIER TO ARP A. JURE 20,1977 

RANGE DATA TAKEN AT PIER 

HEIGHT TO THE TOP OF THE TRIBRACH 1125, MM 
TOTAL LASER HEIGHT ABOVE THE MARKER. 1065. MM 
ECCENTRICITY OMM 
DAYLIGHT FILTER OUT 

A 137 MM OFFSET nAS BEEN DIALED INTO THE INSTRUMENT 
LINEARITY CORREG1 ION* 2 MM 
OBSERVERS L AUR I LLA, HARRIS 

imcORREC IE I) RANGE DATA 


TIM 1 ’ 11ANGE FREO BATTERY THFRM COMMENTS 


HR MN SEC (METERS) DIFF 


1 

45 

0 

302B9 

370 

4 

I 

0 

0 

0 

30209 

383 

3 

9 

0 

0 

0 

30289 

390 

0 

0 

0 

0 

0 

30239 

301 

0 

0 

1 

46 

0 

30289 

385 

0 

0 

0 

0 

0 

30289 

381 

0 

G 

1 

49 

0 

30289 

380 

0 

0 

0 

0 

0 

30289 

373 

0 

.0 

0 

0 

0 

30289 

381 

0 

0 

0 

0 

0 

30289 

332 

0 

0 

0 

0 

0 

30289 

385 

0 

0 

0 

0 

0 

30289 

370 

0 

0 

0 

0 

0 

30289 

370 

0 

0 

0 

0 

0 

30289 

384 

0 

0 

0 

0 

0 

30289 

384 

0 

0 

0 

0 

0 

30289 

379 

0. 

.0 

0 

0 

0 

30289 

380 

0 

0 

0 

0 

0 

30289 

302 

0 

0 

0 

0 

0 

30289 

374 

0 

0 

0 

0 

0 

30289 

379 

0 

0 

0 

0 

0 

30289 

380 

0 

0 

0 

0 

0 

00289 

370 

0 

0 

1 

55 

30 

30289 

369 

0 

0 

0 

0 

0 

30289 

375 

0 

0 

0 

0 

0 

30289 

381 

0 

0 

1 

56 

50 

30289 

377 

0 

0 

0 

0 

0 

30289 

379 

0 

0 

0 

0 

0 

30289 

370 

0 

0 

0 

0 

0 

30289 

374 

0 

0 

0 

0 

0 

30289 

362 

“0 

6 

0 

0 

0 

30289 

367 

0. 

0 

0 

0 

0 

30289 

373 

0 

0 

0 

0 

0 

30289 

373 

0 

0 

0 

0 

0 

30289 

375 

0. 

0 

0 

0 

0 

30289 

382 

0. 

0 

0 

0 

0 

30289 

367 

0 

0 

2 

o 

45 

30289 

372 

0 

0 

0 

0 

0 

30289 

376 

0 

0 

0 

0 

0 

00289 

383 

0 

0 

0 

0 

0 

30289 

374 

0 

0 

0 

0 

0 

30289 

378 

0 

0 

0 

0 

0 

30289 

373 

0 

0 

0 

0 

0 

30289 

OS 9 

0 

0 

2 

6 

0 

30289 

375 

0 

0 

0 

0 

0 

30289 

375 

0 

0 

0 

0 

0 

30289 

368 

0 

0 


VOLTAGE (KOHM) 

12 380 0.000 

0 000 0 000 

0.000 0 000 

0.000 0 000 

0.000 0 000 

0 000 0 000 

0 000 0 000 

12.36© 0 000 

0 000 O 000 

0 000 0 000 

0 600 0.000 

0 000 0 000 
0 000 0 000 
0 000 C 000 
0.000 0 000 

0.000 0 000 -.2 0 NET 

0.000 0 000 7 C DRY 

0 000 O.O’OO SLOW 

0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0.000 0 000 

0 000 0 000 

0 000 0 000 

0 000 0 000 READY 

0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
O 000 0 000 

12.340 0 0G0 

0 000 0 000): R 

0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0 000 0 000 
0.000 0 000 

0 000 0 000 
0 000 0 000 
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LINE *5 PIER TO ARPA JUNE 20, 1977 
UNCORREGTED RANGE DATA 

TIME RANGE FREQ. BATTERY THERM COMMENTS 


HR 

MN 

SEC 

( METERS) 

DIFF. 

VOLTAGE 

( ICOHH) 

0 

0 

0 

30289 

376 

0 

0 

0.000 

0 

000 

0 

0 

0 

30289 

369 

0 

0 

0 000 

0 

000 

0 

0 

© 

30289 

379 

0 

0 

0 000 

0 

000 

0 

0 

0 

30289 

379 

0 

0 

0 000 

0 

000 

0 

0 

0 

30289 

375 

0 

0 

0 000 

0 

000 

0 

0 

0 

30289 

366 

0 

0 

0.000 

0 

000 

0 

0 

0 

30289 

373 

0 

0 

0.000 

0 

000 

0 

0 

0 

30289 

379 

0 

0 

0 000 

0 

GOO 

2 

11 

30 

30289 

302 

0 

0 

12 320 

0 

000 

0 

0 

0 

30289 , 

.376 

0 

0 

0 000 

0 

000 

2 

12 

0 

30289 

375 

-2 

7 

12 310 

0 

0004 


REDUCED RANCt DATA IN MEIERS 

TIME FREQUENCY REDUCED COMMENrS 

HR MN SEC CORRECT ED RANGE 


2 

3 

12 

30289 

391 

30291 

513 

2 

3 

39 

30289 

.398 

30291 

.520 

o 

4 

6 

30289 

389 

3029 1 

511 

2 

4 

33 

30209 

.394 

30291 

.515 

2 

5 

0 

30289 

389 

30291 

510 

2 

5 

27 

30289 

395 

30291 

.517 

2 

6 

0 

30289 

391 

30291.513 

2 

6 

30 

30289 

391 

30291 

513 

2 

7 

0 

30289 

38 1 

30291 

506 

2 

7 

30 

30289 

393 

30291 

514 

2 

8 

0 

30289 

386 

30291 

507 

2 

8 

30 

30289 

396 

30291 

518 

2 

9 

0 

30289 

396 

30291 

518 

2 

9 

30 

30209 

392 

30291 

514 

2 

10 

0 

30289 

383 

3029 1 

505 

2 

10 

30 

30289 

390 

3029 1 

511 

2 

1 1 

0 

30289 

397 

30291 

.518 

2 

11 

30 

30289 

400 

30291 

521 

2 

1 1 

45 

30289 

394 

3029 1 

516 

2 

12 

0 

30289 

393 

30291 

. 5 15 


MEAN LINE LENGTH WITHOUT ATMOSPHERIC CORRECTIONS^ 30289.392 METERS 

MEAN CORRECTED LINE LENG I H= 30291 514 METERS 

STANDARD DEVIATION^ 0044 METERS 

STANDARD DEVIATION OF THE MEAN= 0010 METERS 

MEAN REFRACTIVE NUMBER? 239 52 
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LINE #5 PIER TO ARP A. JUNE 20,1977 

ATMOSPHERIC DATA TAKEN AT PIER 
ELEVATION 2 28M 
PSYCRROMETER #\ BAROMETER * l 
BAROMETER CORRECTION. 0 05MB AH 
OBSERVERS LAURILA 

UNCORRL C l'ED DATA 


TIME 

NET 

DRY 

BAROMETRIC 

COMMENTS 

RR HN 

SEC 

TEMP 

TEMP 

PRESC MB) 



2 11 

0 

20 B 

23 3 

1017 40 K 

HELICOPTER TURNING 

0 0 

0 

20 a 

23 3 

1017 35 



0 0 

0 

20 a 

23 3 

1017 30 



2 15 

0 

20 7 

23 3 

1017 30 



0 0 

0 

20.6 

23 3 

1017 30 



0 0 

0 

20 5 

23 3 

1017.30 



0 0 

0 

20 5 

23 3 

1017 35 



2 25 

0 

20.6 

23.3 

1017 40 



0 0 

0 

20 6 

23 3 

1017 35 



2 27 

0 

20.6 

23 3 

1017 35 S 



REDUCED ATMOSPHERIC DATA 



TIME 

DRY 

BAROMETRIC E 

N 

COMMENTS 

HR MN 

SEC 

TEMP 

I' RES (MB) 



2 11 

0 

23 1 

1017 

45 22 94 

277. 1 

HELICOPTER TURNING 

2 12 

20 

23 1 

1017 

40 22 94 

277 1 

> 

2 13 

40 

23 1 

1017 

35 22 94 

277 1 


2 15 

0 

23 I 

1017 

35 22 72 

277 1 


2 17 

30 

23 I 

1017 

35 22 50 

277 1 


2 20 

0 

23 1 

1017 

35 22 28 

277 1 


2 22 

30 

23 I 

1017 

40 22 28 

277 1 


2 25 

0 

23 1 

1017 

45 22 50 

277 1 


2 26 

0 

23 1 

1017. 

40 22 50 

277 1 


2 27 

0 

23 1 

1017 

40 22 50 

277 1 


MEANS 


23 I 

10J7 

39 22 61 

277 1 
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LINE *5 PIER TO ARPA JUNE 20, 1977 

REFLECTOR ATMOSPHERIC DATA TAKEN AT ARPA 
ELEVATION . 3033 5IM 

HEIGHT TO THE TOP OF THE TRIBRACH 520 MM 
HEIGHT FROM THE I OP OF THE TRIBRACH 

TO THE CENTER OF HIE REFLECTORS 287 MM 
TOTAL REFLECTOR HEIGHT ABOVE HIE MARKER 807. MM 
NUMBER OF REFLECTORS- 21 
ECCENTRIC IT 7 OMM 

PSYCIIROMFTER -3 BAROMETER -5 
BAROMETER CORRECTION. 0 75MBAR 
OBSERVERS WOLFE 


UNCORRECTED DATA 


TIME 


NET- 

DRY 

BAROMETRIC 

COMMENTS 

mi hn 

SEC 

TEMP 

TEMP 

PRESC MB) 



2 13 

0 

O 4 

6 8 


710 55 K 

HELICOPTER TURNED AROUND 

2 14 

0 

0.4 

6 8 


710 50 



2 15 

0 

0 5 

6 0 


710 50 



2 17 

0 

1 8 

6 8 


710.45 

REWOUND PS YOIIROMETER 

2 18 

0 

0 9 

6 8 


710 40 



2 19 

0 

0 8 

6 8 


710 40 



2 20 

0 

0 6 

6 8 


710 45 



2 21 

0 

0.6 

6 0 


710 45 



2 22 

0 

0.7 

6.0 


710 35 



2 23 

0 

0 6 

6 a 


710 40 



2 24 

0 

0.4 

6 7 


710.40 



2 25 

0 

0 5 

6 7 


710 35 



2 28 

0 

0 0 

6 7 


710 15 

REWOUND PSY.HEL BREAKINC OF 

o 29 

0 

0 6 

6 7 


710 25 



2 30 

0 

0 5 

6 7 


710 20 



2 31 

0 

0 6 

6 8 


710 20 t: 



REDUCED ATMOSPHERIC DATA 




TIME 


DRY 

BAROMETRIC E 

N 

COMMEN TS 

HU MN 

SFC 

TEMP 

PRES (MB) 



2 13 

0 

6 4 

71 1 

30 

3 59 

205.8 

HI 1 1 COPTER TURNED AROUND 

2 14 

0 

6 4 

7(1 

25 

3 60 

203 a 


2 15 

0 

6 4 

71 1 

25 

3 69 

’205 a 


2 17 

0 

6 4 

71 1 

20 

4 91 

205 7 

REWOUND PS YCHROMETEll 

2 18 

0 

6 4 

71 1 

15 

4 06 

205 7 


2 19 

0 

6 4 

71 1 

15 

3 97 

205 7 


2 20 

0 

6.4 

71 1 

20 

3 78 

205 7 


2 21 

0 

6.4 

711 

20 

3 78 

205.7 


2 22 

0 

6.4 

71 1 

10 

3 87 

205 7 


2 23 

0 

6.4 

711 

15 

3 78 

205 T 


2 21 

0 

6 3 

711 

15 

3 6 1 

205 8 


2 '25 

0 

6 3 

71 1 

10 

3.74 

203 8 


2 20 

0 

6 3 

710 

90 

4 01 

205 7 

RENOUND PSY, IIEL BREAKINC 

2 29 

0 

6.3 

711 

00 

3 83 

205 8 


2 30 

0 

6 . 3 

710. 

,95 

3 71 

205 7 


2 31 

0 

6.4 

710 

95 

3 78 

205.7 


MEANS 


6 4 

711 

12 

3 86 

205 7 
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LINE *5 PIER 10 ARPA JURE 20,1077 

FINAL CALIBRATION OF THE HELICOPTER UYGRISTOH AT TIER 
PSYCRR0ME1ER *4 BAR0ME1BR *2 
BAROMETER C0RRFCT10N. -0.25 MBAIl 

CALIBRATION RESISTANCE OF TIIE IIYGRISTOR 95 0 KOIIM 
ZERO PRESSURE FREOUENCY OF DIG1QUARTZ 39303 70 IIZ 
OBSERVER SC1IENCK 

UNCORRECl’ED DVPA t 

TIME NET BUY THERM HYGIUS BAROMETRIC DIGIQTZ COMMENTS 

HR MN SEC 1 EMI’ TEMP (KOIIM) (KOIIM) PRES(MB) FREO ( IT/) 

3 20 0 20 2 22.8 16 09 787 0 1015 95 35308 7 

0 0 0 20 2 22 8 16 09 013 0 1015 95 35308 7 

0 O 0 20 2 22 9 16 09 814 0 1015 95 35308 8 

0 0 0 20 2 22 9 16 09 815 0 1015 95 3530U 7 

0 O 0 20 2 22 9 16 09 818 0 1015 95 35309 0 

REDUCED DATA 

TIME DIGITAL DIGiarZ DRY T1IFR E E 
HR MN SEC TRESS PRESS 1EMP TEMP GRND 1IELI 

3 28 0 1015 70 1015 04 23 0 23 0 22 01 22 30 

000 1015 70 1015.84 23 0 23 0 22 01 22 44 

000 1015 70 1015 81 23 1 23 0 21 94 22 45 

000 1015 70 1015 84 23 1 23 0 21 94 22 45 

000 1015 70 1015 76 23 1 23 0 21 94 22 47 
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LIKE *5 PIER TO ARPA JUNE 20,1977 
HEl I COPTER LINE DATA. FLYING FROM ARPA 
UNCORRECTED DATA 


TIME 


ALT 

VEL 

TIIERM 

DIGIQTZ 

HYGRIS 

HR 

NN i 

SEC 

(KM) 

MPII 

KOIIM 

FREtt (nz) 

FORM 

2 

15 

0 

2 

134 

50 

19 

90 

36320 

5 

18 

04 

0 

0 

0 

0 

000 

50. 

20 

00 

36300 

3 

18 

0 

0 

0 

0 

0 

000 

50 

19 

70 

36274 

9 

19 

0 

0 

0 

0 

1 

951 

50 

19 

20 

3624 1 . 

.6 

10 

0 

0 

0 

0 

0 

000 

50 

18 

90 

36205 

1 

17 

0 

0 

0 

0 

1 

829 

50 

18. 

60 

36182 

3 

17 

0 

0 

0 

0 

0.000 

50 

18 

50 

36169 

6 

17 

0 

0 

0 

0 

0 

000 

50 

18 

40 

36162 

7 

17 

0 

2 

17 

0 

2 

042 

50 

18 

20 

36140 

9 

16 

0 

0 

0 

0 

0 

000 

50. 

18 

00 

36131 

5 

17 

0 

0 

0 

0 

0 

000 

50. 

18 

40 

36117 

1 

24 

0 

0 

0 

0 

0 

000 

50 

18 

60 

36 102 

7 

23 

0 

0 

0 

0 

0 

000 

50 

18. 

60 

36079 

0 

34 

0 

0 

0 

0 

0. 

.000 

50 

19 

10 

36061 

2 

37 

0 

0 

0 

0 

1 

524 

50 

19 

40 

36040 

5 

50 

0 

0 

0 

0 

0. 

.000 

50. 

19 

40 

36036 

2 

66 

0 

0 

0 

0 

I 

463 

50 

19 

70 

36023 

8 

309 

0 

0 

0 

0 

0 

000 

50 

20 

10 

36000 

5 

481 

0 

0 

0 

0 

1 

402 

50 

20 

20 

35989 

2 

1325 

0 

0 

0 

0 

0 

000 

50 

20 

30 

35965 

1 

1262 

0 

0 

0 

0 

1 

31 1 

50 

20 

30 

35948 

5 

1359 

0 

0 

0 

0 

0 

000 

50 

20 

10 

35932 

5 

1303 

0 

0 

0 

0 

I 

250 

50 

20 

00 

35912 

1 

1368 

0 

0 

0 

0 

0 

000 

50 

19 

90 

35902 

9 

1586 

0 

0 

0 

0 

1 

158 

50. 

19 

70 

35886 

8 

1714 

0 

0 

0 

0 

0 

000 

50 

19 

60 

35870. 

. 1 

161 1 

0 

0 

0 

0 

1 

097 

50 

19 

60 

35852 

3 

1418 

0 

0 

0 

0 

0 

000 

50 

19 

50 

35834 

4 

1235 

0 

0 

0 

0 

0 

000 

50 

19 

60 

35027 

2 

1361 

0 

2 

22 

0 

1 

006 

50 

19 

40 

35816 

2 

1379 

0 

0 

0 

0 

0 

000 

50 

19. 

40 

35803 

1 

1257 

0 

0 

0 

0 

0 

945 

50 

19 

30 

3571)6 

7 

1209 

0 

0 

0 

0 

0 

000 

50 

19 

20 

35768 

6 

0 

0 

0 

0 

0 

0 

000 

50 

18 

80 

3574 7 

9 

1489 

0 

0 

0 

0 

0 

823 

50 

10 

57 

35727 

I 

1589 

0 

0 

0 

0 

0 

000 

50 

18 

44 

35705 

9 

1598 

0 

0 

0 

0 

0 

000 

50 

18 

30 

35685. 

.9 

1616 

0 

2 

24 

0 

0 

000 

0 

18 

10 

35662 

1 

1599 

0 

0 

0 

0 

0 

000 

0 

18 

01 

35o40 

9 

1568 

0 

0 

0 

0 

0 

610 

0 

17 

90 

35628 

7 

1547 

0 

0 

0 

0 

0 

000 

0 

17 

81 

35616 

0 

1182 

0 

0 

0 

0 

0 

000 

0 

17 

76 

85610 

3 

1423 

0 

0 

0 

0 

0 

579 

0 

17 

64 

35002 

4 

1326 

0 

0 

0 

0 

0 

000 

0 

17 

56 

3359 1 

0 

1227 

0 

0 

0 

0 

0 

000 

0 

17 

45 

3557 l 

7 

11-11 

0 

0 

0 

0 

0 

488 

0 

17 

32 

35555 

8 

1031 

0 

0 

0 

0 

0 

OoO 

0 

17 

19 

35537 

5 

926 

0 

0 

0 

0 

0 

000 

0 

17 

13 

35524 

2 

831 

0 

0 

0 

0 

0 

396 

0 

16 

98 

35506 

5 

680 

0 

0 

0 

0 

0 

000 

0 

16 

06 

35405 

2 

821 

0 

0 

0 

0 

0 

274 

0 

16 

03 

35' £ 64 

9 

938 

0 

0 

0 

0 

0 

000 

0 

16 

73 

35 142 

7 

905 

0 

0 

0 

0 

0 

000 

0 

16 

59 

35425 

7 

875 

0 


COMMENTS 



LINE #5 PIER TO ARPA JUNE 20,1077 
UNCORRECTED DATA 


TIME ALT 
UR MN SEC (KM) 


VEL TifERM. 
MPII KOIIM 


DIGIQTZ HYGRIS COMMENTS 
FREtt ( IIZ) KORN 


2 

28 

0 

0 

103 50 

16 ! 

52 

35410 

7 

950 

04 

0 

0 

0 

0 

000 

0. 

16 

17 

35319 

o 

873 

0 

2 

34 

0 

0 

000 

0 

16 

17 

35314 

5 

868 

0 

2 

35 

0 

0 

000 

0. 

16 

17 

35: 

31 i 

7 

858 

0 

REDUCED IIEL 

I COPTER 

ATMOSPHERIC 

DAiA 




TIME 

ADJUSTED 

PRESS 

TEMP 


E 

N 


HR 

HN 

SEC 

ALT (KM) 

(MB) 







2 

15 

0 

2 

35830 

771 

50 

14 

4 

0 

00 

217 

1 

o 

15 

15 

o 

30419 

776 

50 

14 

2 

0 

00 

218 

7 

o 

15 

30 

2 

23664 

702 

77 

14 

0 

0 

00 

220 

0 

2 

15 

45 

2 

14073 

790 

.99 

15 

0 

0 

00 

221 

5 

2 

16 

0 

2 

05325 

799 

90 

16 

5 

0 

00 

223 

6 

2 

16 

15 

1 

90408 

005 

60 

17 

1 

0 

00 

224 

6 

2 

16 

30 

1 

96126 

000 

72 

17 

3 

0 

00 

225 

3 

2 

16 

45 

1 

94340 

010 

42 

17 

5 

0 

00 

225 

6 

2 

17 

0 

1 

90800 

013 

81 

18 

0 

0 

.00 

226 

2 

2 

17 

14 

1 

06343 

010 

09 

18 

4 

0 

00 

227 

1 

2 

17 

28 

1 

02677 

021 

63 

17 

5 

0 

00 

220 

0 

2 

17 

42 

I 

79036 

025 

17 

17 

1 

0 

00 

230 

1 

2 

17 

56 

1 

73206 

030 

79 

17 

1 

0 

00 

231 

7 

2 

18 

10 

1 

60655 

035 

35 

16 

1 

0 

40 

233 

0 

2 

18 

24 

1 

65517 

030 

46 

15 

4 

2 

96 

235 

0 

o 

18 

38 

I 

62490 

841 

.40 

15 

4 

3. 

.65 

235 

9 

2 

10 

52 

1 

59450 

844 

52 

14 

0 

10 

21 

237 

0 

2 

10 

6 

1 

55718 

848 

.26 

14 

0 

1 1 

1 1 

230 

6 

2 

10 

20 

1 

51041 

852 

99 

13 

0 

13 

42 

240 

0 

2 

10 

34 

1 

45242 

850 

00 

13 

6 

13 

15 

211 

9 

2 

10 

48 

1 

41276 

862 

94 

13 

6 

13 

29 

213 

0 

2 

20 

2 

1 

374 69 

866 

05 

14 

0 

13 

56 

24.1 

0 

2 

20 

16 

1 

32608 

871 

03 

14 

2 

13 

83 

245 

0 

o 

20 

30 

1 

30468 

871 

00 

14 

4 

14 

30 

245 

5 

2 

20 

44 

1 . 

. 2o6O0 

878 

00 

14 

0 

14 

02 

246 

o 

2 

20 

58 

1 

22767 

802 

00 

15 

0 

14 

91 

217 

o 

2 

21 

12 

1 

10616 

086 

4 1 

15 

0 

14 

66 

240 

4 

2 

21 

26 

I 

14464 

890 

77 

15 

2 

14 

60 

249 

4 

2 

21 

40 

I 

12000 

092 

53 

15 

0 

14 

58 

250 

1 

2 

22 

0 

I 

10265 

895 

20 

15 

4 

15 

00 

230 

5 

2 

22 

15 

1 

07254 

898 

39 

15 

4 

14 

80 

25 1 

4 

2 

22 

30 

1 

03500 

902 

30 

15 

6 

14 

92 

252 

3 

2 

22 

45 

0 

99375 

906 

70 

15 

0 

15. 

37 

253 

4 

2 

23 

0 

0 

94676 

91 1 

01 

16 

7 

16 

46 

254 

0 

2 

23 

15 

0 

89970 

916 

86 

17 

2 

17 

13 

251. 

9 

2 

23 

30 

0 

85196 

922 

00 

17 

5 

17 

46 

256 

1 

2 

23 

45 

0 

007 1 5 

926 

85 

17 

0 

17 

04 

257 


2 

24 

0 

0 

75409 

932 

62 

18 

2 

10 

33 

258 

4 

2 

24 

15 

0 

70709 

937 

75 

10 

4 

10 

53 

259 

6 

2 

24 

30 

0 

60014 

910 

70 

10 

7 

10 

79 

260 

2 

2 

24 

45 

0 

65217 

94 3 

77 

10 

9 

18 

9 l 

260 

9 

2 

25 

0 

0 

63964 

9 15 

15 

19 

0 

18 

97 

261 

1 

3 

25 

15 

0 

62230 

917 

06 

19 

3 

19 

13 

261 

4 

2 

25 

30 

0 

59061 

949 

67 

19 

4 

19 

14 

262 

0 

2 

25 

45 

0. 

56174 

953 

75 

19 

7 

19 

25 

262 

9 


COMMENTS 



LINE *5 PIEH TO ARPA JUNE 20,1977 
REDUCED HELICOPTER ATMOSPHERIC DATA 


T l Mi 
IIR HN 

SEC 

ADJUSTED 
ALT (EM) 

PRESS. 

(Mil) 

TEMP 

E 

N 

COMMENTS 

2 

26 

0 

0 

52063 

950 

32 

20 

0 

19 

37 

263 

8 

2 

26 

15 

0 

40100 

962 

73 

20 

3 

19 

34 

264 

8 

2 

26 

30 

0 

45231 

965 

94 

20 

4 

19 

14 

265 

6 

2 

26 

45 

0 

41426 

970 

21 

20 

n 

18 

86 

266 

4 

2 

27 

0 

0 

36067 

975 

31 

21 

i 

19 

90 

267. 

5 

o 

27 

15 

0 

32543 

900 

23 

21 

2 

20 

67 

268 

a 

2 

27 

30 

0 

27039 

985 

57 

21 

4 

20 

67 

270 

0 

2 

27 

45 

0. 

24252 

909 

66 

21. 

0 

21 

00 

270 

8 

2 

20 

0 

0 

21099 

993 

26 

21 

9 

21. 

55 

271 

6 


MULTIPLICATION CONSTANT 10 HUMPHREYS 1'0RMUL4= 0 994761 
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LIKE *5 PIER TO AREA JUNE 20,1977 
RANGE DATA -TAKEN AT PI Fit 

nEIGRT TO HIE 'I OP OK '1IIE TRIBRAClf 1 125. MM 
’10TAL LASER HE I CUT ABOVE '1IIE MARKER. 1365 MM 
ECCENTRICITY OMM 
DAYL 1 CRT F I ITER OUT 

A 137 MM OFFSET HAS BEEN DIAL! D INTO THE INSTRUMENT 
LINEARITY CORRECTION. 2 MM 
OBSERVERS LAUllII LA, HARRIS 


UNCORRECTED RANGE DATA 
TIME RANGE M1EO 


IIR 

MN 

SI-C 

( METERS) 

DIKE 

2 

12 

0 

30209 

366 

—2 

7 

0 

0 

0 

30209 

3ft 3 

_2 

7 

0 

0 

0 

30209 

359 

-2 

7 

0 

0 

0 

30209 

366 

0 

0 

0 

0 

0 

30209 

360 

0 

0 

0 

0 

0 

30209 

373 

0 

0 

2 

19 

30 

30209 

362 

0 

0 

0 

0 

0 

30289 

364 

0 

0 

0 

0 

0 

30209 

871 

0 . 

.0 

0 

0 

0 

80209 

363 

0 

0 

2 

22 

10 

30209 

370 

0 

0 

0 

0 

0 

30209 

363 

0 

0 

0 

0 

0 

30209 

365 

0 

0 

0 

0 

0 

30209 

361 

0 

0 

0 

0 

0 

30209 

364 

0 

0 

0 

0 

0 

30209 

359 

0 

0 

2 

26 

30 

30209 

3ft2 

0 

0 

0 

0 

0 

30209 

367 

0 

0 

0 

0 

0 

30209 

367 

0 

0 

0 

0 

0 

302L9 

365 

0 

0 

0 

0 

0 

30209 

869 

0 

0 

0 

0 

0 

30200 

365 

0 

0 

0 

0 

0 

30209 

3? 2 

0 

0 

0 

0 

0 

30209 

8»2 

-3 

1 

2 

29 

30 

30209 

369 

0 

0 

0 

0 

0 

30209 

363 

0 

0 

0 

0 

0 

30209 

3ul 

0 

0 

0 

0 

0 

30209 

361 

0 

0 

0 

0 

0 

30209 

3ft 7 

0 

0 

2 

33 

30 

30209 

361 

-3 

2 


REDUCED RANG! 1 DATA IN ME 1 ERS 


BATTERY THERM COMMENTS 

VOLTAGE (K01IM) 


12 

310 

0 

000 (- TURN AROUND 

12 

310 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0. 

,000 

0 

000 

0. 

. 000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

12 

290 

0 

000 

0 

000 

0. 

GOO 

0 

000 

0. 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

12 

200 

0 

000 *■ 



TIME 

I REdUENOY 

IIR 

MN 

SEC 

C0RRE1 

; TED 

2 

12 

0 

80209 

804 

2 

13 

15 

30209 

301 

2 

14 

30 

80209 

377 

2 

15 

45 

30209 

304 

2 

17 

0 

30200 

306 

2 

10 

15 

30209 

391 

2 

19 

30 

30209 

300 

2 

20 

JO 

30209 

302 

2 

20 

50 

30209 

389 

2 

21 

30 

30209 

381 


REDUCED COMMEN I S 
RANCE 

30291.514 TURN AROUND 

3029 1511 

30291 507 

30291 514 

30291 516 

30291 521 

30291 510 

30291 512 

30291 5(9 

3029 1 {» 1 1 



LINE #5 PIER TO ARPA JUNE 20,1977 
REDUCER RANGE RATA IN METERS 


TIME 

FREQUENCY 

mi 

UN 

SEC 

CORRECTED 

2 

22 

10 

30289 

388 

2 

22 

53 

30289 

.301 

2 

23 

36 

30289 

381. 

2 

24 

19 

30289 

383 

2 

25 

2 

30289 

383 

2 

25 

45 

30289 

378 

2 

26 

30 

30289 

381 

2 

26 

52 

30289 

386 

2 

27 

14 

30289 

386 

2 

27 

36 

30289 

384 

2 

27 

50 

30289 

388 

2 

20 

20 

30289 

304 

2 

28 

42 

30289 

391 

2 

29 

4 

30289 

381 

2 

29 

30 

30289 

380 

2 

30 

18 

30289 

382 

2 

31 

6 

30209 

300 

2 

31 

54 

30289 

380 

2 

32 

42 

30289 

386 

2 

33 

30 

30289 

380 


REDUCED COMMENTS 
ILANGE 

30291 31 8 
30291.011 
30291.513 
30291 512 
30291 512 
30291 508 
30291 511 
30291.516 
30291 516 
30291 5 14 
30291 518 
30291 514 
30291 521 
30291.51 I 
30291 518 
30291 512 
30291 510 
30291 510 
30291 516 
30291 510 


MEAN LINE LENCIII U1 IIIOU'I ATMOSPHERIC COHRECTIONS= 30289 384 METERS 

MLAN CORRECTED LINE LENGTn= 30291 514 METERS 

STANDARD DEVIAllON^ 0037 Mli'lFRS 

STANDARD DEVIATION OF THE MEAN= 0007 METERS 

MEAN REFRACTIVE NUM8ER= 239 24 



LIKE #6 LUKE TO PUU NIANIAU 


JUNE 21, 1977 


ATMOSPHERIC DATA TAKEN AT LUKE 
ELEVATION 93 04M 
PS YCIIROMET Ell B AKO ME PER "\ 

BAROMETER CORRECTION* 0 OOMBAR 
OBSERVERS SU'n ON 


UNCORREGT El) DATA 


TIME 

WET 

DRY 

BAROMETRIC 

COMMENTS 

HU 

MN 

SEC 

TEMP 

TEMP 

PRES (MB) 



4 

52 

0 

20.2 

oo 

6 

1007 

60 

REWOUND 

PSYCIIROMETER 

4 

54 

0 

20 2 

22 

6 

1007 

60 



4 

55 

0 

20.2 

22 

7 

1007 

65 



4 

57 

0 

20 2 

22 

6 

1007 

65 



4 

58 

0 

20 2 

22 

5 

1007 

65 K 

HELICOPTER CALIBRATION 

5 

1 

0 

20 2 

22 

4 

1007 

65 

REWOUND 

PSYCIIROME TER 

5 

3 

0 

20 0 

22 

4 

1007 

65 



5 

4 

0 

20 0 

22 

3 

1007 

65 



5 

6 

0 

20 0 

22 

3 

1007 

65 



5 

0 

0 

20 0 

oo 

2 

1007 

70 



0 

10 

0 

20. 1 

22 

o 

1007 

65 

REWOUND 

PSYCIIROMETER 

5 

12 

0 

20 0 

22 

1 

1007 

70 



5 

14 

0 

20 2 

22 

2 

1007 

70 



5 

16 

0 

20 2 

22 

2 

1007 

75 



5 

in 

0 

20 2 

22 

2 

1007 

no 



5 

20 

0 

20.2 

22 

2 

1007 

no 

REWOUND 

PSYCIIROMETER 

5 

22 

0 

20 2 

22 

2 

1007 

no 



5 

24 

0 

20 2 

oo 

A 

1007 

no 



5 

26 

0 

20.2 

22 

3 

1007 

no 



5 

20 

0 

20.3 

O ' 

i— I.-J 

3 

1007 

nor 




REDUCED ATMOSPHERIC DATA 



TIME 


DRY 

BAROMETRIC 

E 

N 


COMMENTS 

mi 

MN 

SLC 

TEMP 

PRES (MB) 






4 

58 

0 

22 

3 

1007 65 

oo 

uu 

20 

275 

2 

HF1 IC0P1ER CALIBRATION 

5 

1 

0 

22 

2 

1007 65 

22 

27 

275 

3 

REWOUND PSYCilliOMI TER 

5 

3 

0 

22 

2 

1007 65 

21 

04 

275 

3 


5 

4 

0 

22. 

. 1 

1007 65 

21 

91 

A75 

4 


5 

6 

0 

22 

1 

1007 65 

21 

91 

275 

4 


5 

8 

0 

22 

0 

1007 70 

21 

97 

275 

5 


5 

10 

0 

22 

0 

1007 65 

22 

19 

A75 

3 

REWOUND PSYCIIROMETER 

5 

12 

0 

21 

9 

1007 70 

22 

04 

275 

6 


5 

14 

0 

'>*> 

i.tu 

0 

1007.70 

22 

40 

275 

5 


5 

16 

0 

22 

0 

1007 75 

22 

40 

275 

3 


5 

18 

0 

22 

0 

1007 80 

22 

40 

275 

5 


5 

20 

0 

22 

0 

1007 00 

oo 

40 

275 

5 

REWOUND PSYCIIROME E'ER 

5 

22 

0 

22 

0 

1007 80 

>o 

-to 

275. 

5 


5 

24 

0 

22 

0 

1007.no 

22 

40 

275 

5 


5 

26 

0 

22 

1 

1007 no 

oo 

33 

275 

4 


5 

20 

0 

22 

1 

1007 00 

22 

55 

275 

4 


MEANS 


22 

1 

1007 72 

22 

A3 

275 

4 
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LINE *6 LUKE TO PUU NIAHIAU JUNE 21,1977 

REFLECTOR ATMOSPHERIC DATA TAKEN AT PUU NIANIAU 
ELEVATION . 2087. 9 GM 

1IEICHT TO IRE TOP OF TIIF, TRIBRACH 707. MM 
IIL I GH’I FROM THE TOP OF 'THE TRIBRACH 

TO THE CENTER OF I HE RI I< LEGIONS 236 MM 
TOTAL RJ3FLFC TOR HEIGHT ABOVE THE MARKER 1023 MM 
NUMBER 01- RE1‘ LECTORS 10 
ECCENTRICITY OMM 
PS YC UROMETER #2 BAROMETER *6 

BAROMETER CORRECTION. 0.20 Ml All 
OBSERVERS CUSHMAN 


UNCORRECTED DATA 


TIME 


UE1 

DRY 

BAROMETRIC 

COMMENTS 

nR 

MN 

SEC 

TEMP 

TEMP 

PRES (MB) 



4 

56 

0 

5 

3 

13 

0 

790 

25 



4 

07 

0 

5 

4 

13 

0 

798 

17 '• 



4 

50 

0 

0 

3 

13 

1 

790 

10 



4 

59 

0 

5 

3 

13 

1 

790 

25 



5 

0 

0 

0. 

0 

13 

0 

790 

20 



5 

1 

0 

5. 

6 

13 

0 

790 

24 

REWOUND 

PSYCI1R0METER 

0 

2 

0 

0 

4 

13 

0 

790 

25 



5 

3 

0 

0 

4 

13 

2 

790 

26 



5 

4 

0 

5 

4 

13 

1 

790 

12 



5 

0 

0 

5 

4 

13 

1 

790 

29 



5 

6 

0 

5 

6 

13 

0 

790 

37 

REWOUND 

PSYC1IR0METER 

5 

7 

0 

5. 

4 

12 

9 

790 

20 



5 

a 

0 

5 

9 

13 

2 

790 

40 



5 

9 

0 

5 

4 

13 

1 

790 

36 



5 

10 

0 

5 

4 

13 

2 

790 

44 



5 

11 

0 

0 

0 

13. 

.2 

790 

50 

REWOUND 

PSYCHROMETER 

5 

12 

0 

5 

4 

13 

2 

790 

47 



5 

13 

0 

5 

4 

13 

o 

M 

790 

TO 



5 

14 

0 

0 

4 

13 

2 

790 

17 



0 

15 

0 

5 

3 

13 

0 

790 

52 



5 

16 

0 

0 

0 

13 

1 

790 

52 

REWOUND 

PSYCHROMETER 

5 

17 

0 

5 

5 

13 

0 

790 

50 



5 

18 

0 

5 

1 

13 

0 

790 

45 



5 

19 

0 

5 

4 

13 

1 

790 

40 



5 

20 

0 

0 

4 

13 

0 

790 

53 



5 

21 

0 

0 

0 

13 

0 

790. 

,54 

REWOUND 

PSYCmiOMET ER 

5 

22 

0 

5 

6 

13 

2 

790. 

.56 



5 

23 

0 

5 

5 

13 

f 

790 

57 



5 

24 

0 

5 

3 

12 

9 

790 

57 



0 

25 

0 

5 

2 

12 

7 

790 

56 



0 

26 

0 

0 

0 

13 

0 

790 

50 

REWOUND 

PSYCHROMETER 

5 

27 

0 

5 

6 

13 

0 

790 

5 1 



5 

20 

0 

5 

5 

13 

o 

790 

51 t- 
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LINE *6 LUKE TO 

PUU NIANIAU 


JUNE 21 

, 1977 


REDUCED ATMOSPIIERIC DATA 







TIME 

DRY 

BAROMETRIC 

E 

N 


COMMENTS 

IIR UN 

SEC 

TEMP 

PRES (MB) 







4 57 

0 

12 9 

790 42 

4 

97 

225 

7 



4 50 

0 

13 0 

790 43 

4 

00 

225 

6 



4 59 

0 

13 0 

790.50 

4 

00 

225 

6 



5 0 

0 

12 9 

790 53 

5 

.03 

225 

7 



5 1 

0 

12 9 

790 49 

5 

20 

225 

<rt 

i 

REWOUND 

rSYCUROMETER 

5 2 

0 

12 9 

790 50 

4 

.97 

225 

7 



5 3 

0 

13 1 

790.51 

4 

07 

225 

6 



5 4 

0 

13 0 

790 37 

4 

92 

225 

6 



5 5 

0 

13 0 

790 54 

4 

92 

225 

7 



5 6 

0 

12 9 

790 62 

5 

.20 

225 

7 

REWOUND 

PS YC UROMETER 

5 7 

0 

12 B 

790 53 

5 

03 

225 

0 



5 0 

0 

13 I 

790 65 

5 

.45 

225 

6 



5 9 

0 

13 0 

790 61 

4 

92 

225 

7 



5 10 

0 

13 1 

790 69 

4 

06 

225 

6 



5 11 

0 

13 1 

790 75 

4 

06 

225 

6 

REWOUND 

PSYCHRONETER 

5 12 

0 

13 1 

790 72 

4 

06 

225 

6 



5 13 

0 

13 I 

790 65 

4 

06 

225, 

,6 



5 14 

0 

13 1 

790 72 

4 

06 

225 

6 



5 15 

0 

12.9 

790 77 

4 

06 

225 

0 



5 16 

0 

13 0 

790 77 

4 

92 

225 

7 

REWOUND 

PS YC1IR0ML 1 ER 

5 17 

0 

12 9 

790 75 

5 

09 

225 

0 



5 in 

0 

12 9 

790 70 

4 

97 

225 

0 



5 19 

0 

13.0 

<90 73 

4 

92 

225 

7 



5 20 

0 

12 9 

1 90 70 

4 

97 

225 

a 



5 21 

0 

12 9 

790 79 

5 

09 

225 

0 

REWOUND 

PSYCHROHETI R 

5 22 

0 

13 1 

790 01 

5. 

10 

225 

6 



5 23 

0 

13 0 

790 02 

5 

03 

225 

7 



5 24 

0 

12 0 

790 02 

4 

91 

225 

9 



5 25 

0 

12 6 

790 01 

4 

90 

226 

0 



5 26 

0 

12 9 

790 75 

4 

97 

225 

a 

REWOUND 

PSYCHROMEl'ER 

5 27 

0 

12 9 

790 76 

5 

20 

225 

0 



5 20 

0 

13 1 

790 76 

4 

90 

225. 

6 



MEANS 


13 0 

790 66 

4 

90 

225 

7 
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LINE #6 LUKE TO PUU NIANIAU JUNE 21,1077 

INITIAL CALIBRATION OF THE HELICOPTER UYCRIST0R AT AIRPORT 
PSYCIUIOMETCR A 2 BAROMETER *2 

BA ROME 1 FR CORRECTION -0 25 MBAR 

CAI TBRATION RES IS I A MCE OF IRE HYGRISTOR 70 0 KOHM 
Zl* RO PRESSURE HROUENCY Of DIG1QHAUTZ 30200.01 HZ 
OBStRVEU- HARRIS 


UN CORRECTED DMA 


HR 

11 ME 
I IN 

SEC 

WET 

'1EMP 

DRY 
'I FMP 

THERM 
( KOHM) 

HYGRIS 
( KOHM) 

BAROMETRIC 
PRES! MB) 

DIGIQ.TZ 
FREQ.. C HZ) 

COMMENTS 

4 

35 

0 

10 0 

22 2 

16 44 

052 0 

1016 60 

35200 8 

COED 

4 

37 

0 

0 0 

0 0 

16 40 

070 0 

1016 60 

35300 1 

COED 

4 

40 

0 

19 4 

21 0 

16 60 

036.0 

1016 63 

35209 0 

COLD 


REDUCED DATA 

TIME DIGITAL DICIQTZ DRY 'I HER E E 

1HI MN SEC PRESS PRESS TliMP HEMP GRND 1IELI 

4 35 0 1016.35 1016 01 22 2 22 1 21 72 22 62 

4 37 0 1016 35 1016 04 22 0 22 2 21 44 22 03 

4 40 0 1016 30 10(6 01 21 0 21 5 21 15 21 70 



104 


LINE #6 LUKE TO FUU NIANIAU JUNE 21,1977 
HELICOPTER LINE DATA. FLYING FROM LUKE 


UNCORREC TED DATA 


TIME 

ALT 

VEL 

THERM 

DIGIQTZ 

HYGRIS 

COMMENTS 


HR 

MN 

SEC 

(KM) 

MPH 

KOHM 

FREO (IIZ) 

KOHM 



4 

45 

0 

0 

000 

0. 

16 48 

35299 4 

968 0 

STARTING 

ENGINES 

4 

40 

0 

0 

000 

0. 

16 39 

35247 I 

981 0 



4 

52 

50 

0 

213 

50. 

16 73 

35412 6 

1015 0 



4 

53 

2 

0 

213 

0 

16.58 

35406.9 

970 0 



0 

0 

0 

0 

207 

0. 

16.52 

35400 9 

974 0 



0 

0 

0 

0 

000 

1 

0 00 

35340 1 

0 0* 

LEVELING 

AT LUKE 

0 

0 

0 

0 

000 

0. 

0 00 

35337 4 

0 0 



0 

0 

0 

0 

000 

0. 

0 00 

35338 2 

0 0 



0 

0 

0 

0 

000 

1. 

0 00 

35337 5 

0 0 



4 

56 

0 

0 

000 

50. 

16 30 

' 35397 8 

1047 0 

STARTING 

LINE 

0 

0 

0 

0 

000 

0. 

16 46 

35365 9 

1007.0 



0 

0 

0 

0 

000 

0 

16 46 

35378 5 

1013 0 



0 

0 

0 

0 

000 

0. 

16 46 

35380 2 

972 0 



0 

0 

0 

0 

000 

0 

16 60 

35392 0 

991 0 



0 

0 

0 

0 

000 

0 

16.63 

35406 1 

0 0 



0 

0 

0 

0 

ooo 

0 

16 82 

35419 7 

832 0 



0 

0 

0 

0 

ooo. 

0 

16 95 

35429 6 

874 0 



4 

58 

0 

0 

000 

0 

17 05 

35439 4 

851.0 



0 

0 

0 

0 

000 

0. 

17 17 

35452 0 

827 0 



0 

0 

0 

0 

ooo 

0. 

17 25 

35462.7 

755 0 



0 

0 

0 

0 

ooo 

0. 

17 35 

35466 3 

695 0 



0 

0 

0 

0 

ooo 

0 

17 38 

35 174 5 

733.0 



0 

0 

0 

0 

000 

0 

17 30 

35484 2 

1057 0 



5 

0 

0 

0 

ooo 

0 

17 17 

35491 2 

1109 0 



0 

0 

0 

0 

000 

0 

17 27 

35500 7 

1007 0 



0 

0 

0 

0 

ooo 

0 

* 17 43 

35511 5 

1 114 0 



0 

0 

0 

0 

,000 

0 

17 35 

35523 8 

1 174 0 



0 

0 

0 

0 

457 

50 

17 53 

35529 7 

1150 0 



5 

1 

0 

0 

518 

0 

17 62 

35565 9 

1190 0 



0 

0 

0 

0 

000 

0 

17 72 

35586 9 

1 176 0 



0 

0 

0 

0 

ooo 

0 

17 81 

35597 5 

1 163 0 



0 

0 

0 

0 

ooo 

0 

17 85 

35605 3 

1 153 0 



5 

3 

0 

0 

ooo 

0 

17 98 

35610 7 

1158 0 



0 

0 

0 

0 

000 

0 

18 01 

35620 3 

1 188 0 



0 

0 

0 

0 

ooo 

0 

18 04 

35632 1 

1177 0 



0 

0 

0 

0 

000 

0 

18 18 

35649 1 

1129 0 



0 

0 

0 

0 

000 

0 

18 25 

35659 2 

1069 0 



5 

4 

0 

0 

732 

50 

18 38 

356 71 3 

1030 0 



0 

0 

0 

0 

000 

0 

18 44 

35675 6 

1025 0 



0 

0 

0 

0 

000 

0 

18 57 

35689 4 

946 0 



0 

0 

0 

0 

000 

0 

18 66 

35704 6 

917 0 



0 

0 

0 

0 

OOO 

0 

18 71 

35715 3 

913 0 



0 

0 

0 

G 

ooo 

0 

18 81 

35723 1 

900 0 



0 

0 

0 

0 

ooo 

0. 

in 89 

35736 7 

850 0 



0 

0 

0 

0 

ooo 

0 

18 93 

35743 6 

862 0 



5 

6 

0 

0 

ooo 

0 

18 99 

35752 4 

363 0 



0 

0 

0 

0 

ooo 

0 

19 09 

35762 1 

814 0 



0 

0 

0 

0 

ooo 

0 

19 21 

35774 7 

779 0 



0 

0 

0 

0. 

ooo 

0 

19 29 

35785 3 

750 0 



5 

7 

0 

0 

ooo 

0 

19 30 

33795 4 

853 0 



0 

0 

0 

0 

000 

0. 

19 28 

35802 0 

1044 0 



0 

0 

0 

0 

ooo 

0 

19 22 

35809 3 

1 174 0 



0 

0 

0 

0. 

ooo 

0 

19 19 

35820 0 

1234 0 





LINE *6 LUKE TO PUU NIANIAU JUNE 21,197? 
UNCORRFCTEI) DATA 

TIME ALT. VEL THE11M 1HGIQT7 HYCRIS 


HR 

MN 

SEC 

(KM) 

MPH 

0 

0 

0 

0 

000 

0. 

0 

0 

0 

0 

000 

0 

5 

8 

0 

1 

128 

0. 

0 

0 

0 

0 

000 

0. 

0 

0 

0 

0 

000 

0. 

r> 

9 

0 

0 

000 

0 

5 

10 

0 

1 

219 

50 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0. 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

.000 

0 

0 

0 

0 

0 

000 

0 

5 

11 

0 

I 

311 

50 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

.000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

1 

372 

55 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

5 

13 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

5 

14 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

I 

521 

50 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

5 

16 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

5 

I? 

0 

0 

000 

0 

0 

0 

0 

1 

585 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

5 

18 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0. 

5 

19 

0 

0 

000 

0 

0 

0 

0 

1 

676 

45 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

5 

20 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

0uo 

0 

0 

0 

0 

0 

000 

0 

0 

21 

0 

0 

000 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

roo 

0 

0 

0 

0 

0 

000 

0 

0 

0 

0 

0 

ooo 

0 


KOHM FREQ (HZ) KOHtI 


19 

21 

35831 

8 

1239 

0 

18 

87 

3584 1 

5 

370 

0 

18 

02 

3586 1 

4 

50 

0 

17 

39 

35068 

0 

36 

0 

17 

86 

35071 

1 

43 

0 

17 

95 

35075 

0 

40 

0 

17 

61 

3589 1 

o 

30 

0 

17 

76 

35905 

9 

3 1 , 

.0 

17 

83 

35908 

4 

35 

0 

18 

02 

35908 

9 

22 

0 

17 

26 

35924 

0 

22 

0 

17 

42 

35930 

1 

21 

0 

17 

42 

35935 

5 

20 

0 

16 

89 

35946 

9 

18 

0 

16 

93 

35955 

3 

17 

0 

17 

59 

35953 

4 

19 

0 

17 

69 

35950 

0 

20 

0 

17 

60 

35953 

9 

18 

0 

17 

12 

3597 1 

9 

17 

0 

17 

19 

35934 

2 

18 

0 

17 

59 

3599 1 

2 

18 

0 

17 

44 

35998 

4 

18 

0 

1? 

48 

36009 

4 

18 

0 

17 

45 

36018 

7 

18 

0 

17 

55 

36017 

6 

1? 

9 

17 

58 

36015 

a 

17 

9 

17 

68 

36022 

4 

18 

1 

17 

71 

36027 

6 

18 

o 

17 

76 

3u033 

a 

10 

1 

1/ 

82 

-36039 

6 

0 

0 

17 

85 

360 13 

2 

18 

! 

17 

70 

.1605 1 

0 

17 

8 

17 

67 

36051 

6 

17 

7 

17 

67 

36052 

5 

17 

6 

17 

61 

36054 

7 

17 

a 

17 

63 

36060 

7 

18 

4 

1? 

64 

36063 

7 

10 

7 

17 

63 

300o9 

3 

19 

t 

1? 

56 

3u073 

3 

18 

5 

17 

57 

36077 

6 

18 

5 

17 

61 

36082 

0 

18 

5 

17 

69 

36086 

7 

18 

6 

17 

79 

3609 l 

8 

in 

9 

17 

90 

36106 

1 

18 

8 

17 

95 

361 15 

9 

18 

9 

18 

01 

36121 

0 

19 

0 

18 

14 

36 123 

9 

20 

0 

18 

22 

36 1 >6 

8 

20 

5 

38 

30 

36130 

1 

19 

/ 

135 

4 I 

36 135 

9 

19 

7 

18 

49 

30 13/ 

8 

19 

2 

18 

63 

36 14 1 

3 

10 

2 

18 

72 

36 ff>J 

1 

19 

5 

18 

77 

16 ! 60 

3 

1 8 

8 

18 

88 

36 159 

9 

19 

0 

18 

9 1 

36 162 

1 

19 

ft 

O 


COMMENTS 
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LINE *6 LUKE TO PUU N1ANTAU JUNE 21,1977 


UNCORRFCTED DATA 



TIME 

ALT 

VEL 

THERM. 

DIG1GTZ 

IIYGRIS 

COMMENTS 

HR 

MN 

SEC 

(KM) 

Mi’ll 

KOIIM 

FREtt (IIZ) 

KOIIM 


5 

22 

0 

1 829 

45. 

19 24 

36166 5 

19 9 


0 

0 

0 

0 000 

0 

19.20 

36169 4 

19 9 


0 

0 

0 

0 000 

0 

19.21 

36178 3 

20.3 


0 

0 

0 

0 000 

0 

0 00 

36186.3 

0.0 

LEVELING 

0 

0 

0 

0 000 

0 

19 51 

36193 1 

0.0 


5 

24 

0 

2 088 

45 

19 51 

36193 9 

20 3* 



REDUCED HELICOPTER ATMOSPHERIC DATA 


TIME ADJUSTED PRESS TEMP E N 

HR MN SEC ALP ( KM) (NR) 


4 

54 

0 

0 

09780 

1007 

26 

OO 

.-. 

1 

22 

62 

275 

3 

4 

54 

29 

0 

09221 

1007 

91 

22 

. 2 

22 

82 

275 

4 

4 

54 

58 

0 

09387 

1007 

72 

22 

3 

23 

03 

275 

2 

4 

55 

27 

0 

09242 

1007 

89 

22 

4 

23 

23 

275 

1 

4 

56 

0 

0 

0767 1 

1009 

70 

22 

5 

23 

44 

275 

5 

4 

56 

15 

0 

13513 

1002 

96 

22 

1 

22 

73 

274 

1 

4 

56 

30 

0 

16145 

999 

94 

22 

1 

22 

75 

273 

3 

4 

56 

45 

0 

16501' 

999 

53 

22 

1 

22 

62 

273 

1 

4 

57 

0 

0 

10974 

996 

70 

21 

7 

22 

19 

272 

7 

4 

57 

15 

0 

2(936 

993 

31 

21 

7 

21 

.81 

271 

9 

4 

57 

30 

0 

2400 I 

990 

01 

21 

2 

20 

.87 

271 

4 

4 

57 

45 

0 

26090 

987 

66 

20 

9 

20 

62 

271 

1 

4 

58 

0 

0 

20962 

985 

30 

20 

6 

20 

22 

270 

7 

4 

58 

20 

0 

31630 

982 

27 

20 

4 

19 

76 

270 

1 

4 

58 

40 

0 

33902 

979 

69 

20 

2 

19 

23 

269 

6 

4 

59 

0 

0. 

.34667 

978 

83 

19 

9 

18 

66 

269 

6 

4 

59 

20 

0 

3641 1 

976 

85 

19 

9 

18 

76 

269 

1 

4 

59 

40 

0 

3040 1 

974 

52 

20. 

.0 

20 

1 1 

268 

2 

5 

0 

0 

0 

39980 

972. 

.83 

20 

4 

20 

63 

267 

3 

5 

0 

12 

0, 

.42019 

970 

54 

20 

1 

20 

06 

267. 

. 1 

5 

0 

24 

0 

4434 1 

907 

91 

19 

7 

19 

87 

266 

7 

5 

0 

36 

0 

46994 

964 

97 

19 

9 

20 

24 

263 

7 

5 

0 

40 

0 

48269 

963 

55 

19 

5 

19 

65 

265 

7 

5 

1 

0 

0 

56130 

954 

81 

19 

3 

19 

48 

263 

5 

5 

l 

30 

0 

60723 

949 

71 

19 

1 

19 

17 

262 

3 

5 

2 

0 

0 

6305 1 

947 

10 

18 

9 

18 

09 

261 

8 

5 

2 

30 

0 

64767 

915 

29 

18 

8 

18 

7o 

2t» J 

4 

5 

3 

0 

0.65957 

943 

90 

18 

5 

18 

42 

261 

3 

5 

3 

12 

0 

68074 

941 

66 

18 

* h 

18 

40 

260 

7 

5 

3 

24 

0 

70685 

938 

81 

18 

3 

18 

30 

260 

0 

5 

3 

36 

0 

74459 

934 

69 

18 

0 

17 

83 

259 

1 

5 

3 

48 

0 

76708 

932 

21 

17 

9 

17 

52 

258 

6 

5 

4 

0 

0 

79408 

929 

31 

17 

6 

17 

1 1 

258 

0 

5 

4 

15 

0 

80370 

928 

27 

17 

5 

16 

95 

237 

9 

5 

4 

30 

0 

83460 

924 

93 

17 

2 

16 

45 

257 

2 

5 

4 

45 

0 

86876 

921 

21 

17 

0 

16 

16 

256 

4 

5 

5 

0 

0 

89288 

918 

64 

16 

9 

16 

04 

255 

7 

5 

5 

15 

0 

92181 

915 

54 

16 

7 

15 

78 

2<>5 

l 

5 

5 

30 

0 

94130 

913 

45 

16 

5 

15 

46 

25 t 

7 

5 

5 

45 

0 

95697 

911 

77 

16 

4 

15 

41 

254 

3 

5 

6 

0 

0 

97699 

909 

64 

16 

3 

15 

29 

253 

0 

,5 

6 

15 

0. 

99910 

907 

20 

16 

i 

14 

9J 

253 

3 

5 

6 

30 

1 

02789 

904 

22 

15 

8 

14 

58 

252 

7 


cowmen rs 

LEVELING AT LUKE 
STARTING LINE 
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LIKE *6 LUKE 10 PUU 

NIANIAU 

JUNE 

21 , 1977 



REDUCED HELICOPTER 

ATMOSPHERIC 

DATA 




TIME 

AD IUS1ED 

PRESS 

TEMP 

E 

N 


COMMENTS 

IIU MN 

SEC 

ALT (KID 

(MB) 







5 20 

40 

I 

91524 

015 11 

17 

2 

0 00 

227 

1 


5 21 

0 

1 

92192 

012 51 

17 

0 

0 00 

226 

9 


5 21 

12 

1 

95790 

Oil 02 

16 

9 

0 00 

226 

4 


5 21 

24 

1 

97210 

009 50 

16 

7 

0 00 

226 

0 


5 21 

26 

1 

97207 

009 60 

16 

5 

0 00 

226 

2 


5 21 

40 

1 

97774 

009 14 

16 

4 

0 00 

226 

2 


5 22 

0 

1 

90900 

800 05 

15 

8 

0 00 

226 

4 


5 22 

24 

1 

99655 

007 21 

15 

0 

0 00 

226 

1 


5 22 

40 

2 

01954 

005 15 

15 

0 

0 00 

225 

5 


5 22 

12 

2 

01025 

002 10 

15 

5 

0.00 

225 

2 

LEVELING 

5 22 

26 

O 

05700 

001 5 1 

15 

2 

0 00 

225 

0 


5 21 

0 

li 

06514 

000 02 

15 

2 

0 00 

22 1 

0 


MUL1IPI 1 CAT I ON CONSTANT TO 

HUMPHREYS FORMULA 3 

■ 0 

.998215 
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LINE *6 LUKE TO PUU NIANIAU JUNE 21,1977 
REDUCED HELICOPTER ATMOSPHERIC DATA 


TIME ADJUST I'D PRESS 
IIR MN SEC ALT (KM) (MR) 


5 

6 

45 

I 

05218 

901 

64 

5 

7 

0 

1 

07539 

899 

18 

5 

7 

10 

1 

09059 

897 

58 

5 

7 

20 

1 

10745 

095 

00 

5 

7 

30 

I 

. 13225 

090 

19 

0 

7 

40 

1 

15969 

890 

02 

5 

7 

50 

1 

18234 

087 

96 

5 

8 

0 

1 

22910 

883 

11 

5 

8 

20 

1 

24472 

881 

50 

5 

8 

40 

1 

25208 

880 

74 

5 

9 

0 

1 

26132 

879 

79 

5 

10 

0 

I 

.29904 

875 

04 

5 

10 

8 

1 

33497 

872 

25 

5 

10 

16 

1 

34096 

871 

.64 

S 

10 

24 

1 

34216 

871 

52 

5 

10 

32 

1 

37846 

867 

03 

5 

10 

40 

1 

3932 1 

866 

04 

5 

10 

48 

1 

40628 

865 

02 

5 

1 1 

0 

1 

43400 

062 

24 

5 

11 

15 

1 

45380 

860 

.26 

5 

1 1 

00 

1 

4431 1 

860 

80 

5 

1 1 

45 

1 

43909 

061 

71 

5 

12 

0 

1 

44809 

860 

.80 

5 

12 

15 

I 

49129 

856 

51 

5 

12 

30 

1 

52192 

050 

46 

5 

12 

45 

1 

50953 

851 

71 

5 

10 

0 

1 

55764 

849 

91 

0 

10 

15 

1 

.58522 

017 

to 

r> 

13 

30 

1 

60866 

844 

87 

5 

13 

45 

1 

60628 

845 

10 

5 

14 

0 

1 

60215 

845 

51 

5 

14 

15 

1 

.61089 

013 

06 

5 

14 

30 

1 

63216 

042. 

.55 

5 

14 

45 

1 

64793 

041 

00 

r> 

15 

0 

I 

66273 

839 

55 

5 

15 

15 

1 

67698 

838 

15 

5 

15 

00 

I 

69077 

036 

51 

5 

15 

45 

1 

69052 

836 

53 

5 

16 

0 

1 

69603 

036 

20 

5 

16 

00 

1 

70180 

035 

72 

5 

17 

0 

1 

71714 

834 

23 

5 

17 

15 

1 

72494 

833 

47 

5 

17 

30 

1 

7390 I 

002 

07 

5 

17 

45 

1 

74965 

831 

06 

5 

18 

0 

1 

76078 

829 

99 

5 

18 

20 

1 

772 1 6 

820 

88 

5 

18 

40 

1 

78132 

827 

71 

5 

19 

0 

1 

80513 

825. 

70 

5 

19 

15 

1 

83113 

822 

90 

5 

19 

00 

1 . 

85915 

820 

49 

5 

19 

45 

1 

87220 

819 

24 

5 

20 

0 

I 

87962 

818 

53 

5 

20 

12 

1 

80705 

817 

82 

5 

20 

21 

1 

89550 

817 

00 

5 

20 

36 

1 

91037 

815 

58 


TEMP 


E 

N 

COMMENTS 

15 

7 

14 

33 

252 

1 

15 

6 

14 

.62 

251 

4 

15 

7 

15 

13 

250 

9 

15 

8 

15 

50 

250 

3 

15 

9 

15 

67 

249 

5 

15 

8 

15 

63 

248 

8 

16 

5 

12 

97 

247 

6 

18 

4 

4 

01 

245 

0 

19 

8 

1 

08 

243 

4 

10 

7 

3 

05 

244 

1 

18 

5 

2 

52 

244 

0 

19 

3 

0 

44 

242 

4 

19 

0 

0 

69 

241 

.6 

18 

8 

1 

59 

241 

. 6 

18 

4 

0 

00 

242 

0 

20 

1 

0 

00 

239 

5 

19 

8 

0 

00 

239 

.4 

19 

8 

0 

00 

239 

0 

21 

0 

0 

00 

237 

2 

20 

9 

0 

00 

236 

8 

19 

4 

0 

00 

238 

2 

19 

1 

0 

00 

238 

6 

19 

3 

0 

00 

238 

o 

20 

5 

0 

00 

236 

T 

20 

3 

0 

00 

235 

4 

19 

4 

0 

00 

235 

7 

19 

7 

0 

.00 

23 1 

9 

19 

6 

0 

00 

234 

2 

19 

7 

0 . 

.00 

233 

5 

19. 

.5 

0 

00 

233. 

.8 

19. 

.4 

0 

00 

233 

9 

19 

2 

0 

00 

233 

7 

19 

1 

0 

00 

233 

4 

19 

0 

0 

00 

233 

0 

18 

8 

0 

00 

232 

7 

18 

7 

0 

00 

232 

4 

19 

1 

0 

00 

231 

7 

19 

2 

0 

00 

231 

6 

19 

2 

0 

00 

231 

5 

19 

3 

0 

00 

231 

3 

19 

0 

0 

00 

230 

9 

19 

3 

0 

00 

230 

7 

19 

3 

0 

00 

230 

3 

19 

4 

0. 

00 

229 

9 

19 

4 

0 

00 

229 

6 

19 

3 

0 

00 

229 

4 

19 

I 

0 

00 

229 

2 

18 

9 

0 

00 

228 

8 

18 

7 

0 

00 

228 

2 

18 

5 

0 

00 

227 

7 

18 

3 

0 

00 

227 

5 

18 

1 

0 

00 

227 

5 

17 

9 

0 

00 

227 

4 

17 

8 

0 

00 

227 

3 

17 

5 

0 

00 

227 

1 
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LINE *6 LUKE TO FUU NIANIAU JUNE 21, 1977 
RANGE DATA TAKEN AT LUKE 

HEIGHT TO THE TOP OF THE TRIBRACH. 1017. HK 
TOTAL LASER HEIGHT ABOVE THE MARKER 1257 MM 
ECCENTRIC I TV. OMM 
DAYLIGHT FII TER OUT 

A 137 MM Of! SET HAS BFEN DIALED INTO THE INSTRUMENT 
LINEARITY CORRECTION. 7 MM 
OBSERVERS CAR'IER, SUTION, UOLFE 


UNCORRECTED RANGE DATA 
TIME RANGE FREQ 


IIR 

MN 

SEC 

( METERS) 

DIFF 

4 

47 

0 

28B41 

245 

2 

0 

0 

0 

0 

2804 1 

243 

0 

0 

0 

0 

0 

2804 1 

237 

0 

0 

0 

0 

0 

2884 1 

235 

0. 

.0 

0 

0 

0 

28041 

245 

1 

0 

5 

0 

0 

2804 1 

244 

0 

0 

0 

0 

0 

28041 

239 

0 

0 

0 

0 

0 

20041 

236 

0 

0 

5 

3 

0 

28041 

238 

0 

0 

0 

0 

0 

28041 

239 

0 

0 

0 

0 

0 

28041 

230 

0 

0 

0 

0 

0 

2004 1 

239 

0 

0 

0 

0 

0 

2004 1 

238 

0 

0 

5 

5 

0 

20041 

236 

0 

0 

0 

0 

0 

20841 

237 

0 

0 

0 

0 

0 

28841 

237 

0 

0 

0 

0 

0 

20041 

240 

0 

0 

0 

0 

0 

20841 

231 

0 

0 

0 

0 

0 

28841 

238 

0 

0 

5 

9 

0 

2004 I 

24 4 

-1 

0 

0 

0 

0 

20841 

238 

0 

0 

0 

0 

0 

2804 1 

239 

0 

0 

0 

0 

0 

20841 

230 

0 

0 

0 

0 

0 

2001 1 

238 

0 

0 

0 

0 

0 

200 1 1 

233 

0 

0 

0 

0 

0 

280 1 1 

230 

0 

0 

s 

16 

0 

2804 1 

230 

-2 

0 

0 

0 

0 

28041 

239 

0 

0 

0 

0 

0 

2804 1 

234 

0 

0 

0 

0 

0 

20811 

231 

0 

0 

0 

0 

0 

20841 

234 

0. 

0 

5 

10 

0 

20841 

234 

-3 

0 

0 

0 

0 

2804 1 

235 

0 

0 

0 

0 

0 

28011 

235 

0 

0 

0 

0 

0 

28041 

210 

0 

0 

0 

0 

0 

2881 1 

230 

0 

0 

0 

0 

0 

2884 1 

235 

0 

0 

0 

0 

0 

28841 

,235 

0 

0 

0 

0 

0 

28041 

232 

0 

0 

0 

0 

0 

28041 

233 

0 

0 

0 

0 

0 

2804 1 

242 

0 

0 

0 

0 

0 

20841 

231 

0 

0 

0 

0 

0 

20841 

231 

0 

0 

0 

0 

0 

2804 1 

230 

0 

0 

5 

22 

0 

2804 1 

233 

-4 

0 


BATTFRY THERM COMMENTS 

VOLTAGE (KOHM> 


12 

590 

0 

000 

0,000 

0 

000 

0 

000 

0 

000 K 

0 

000 

0 

000 

12. 

.590 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

12 

580 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

12 

530 

0 

000 

0 

OOO 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

12 

560 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

0 

000 

12 

550 

0 

600 

0 

000 

0 

000 

0 

000 

0 

OoO 

0 

000 

0 

000 

0 

000 

0 

OOO 

12 

550 

0 

OOO 

0 

000 

0 

OOO 

0 

000 

0 

OOO 

0 

000 

0 

OOO 

0 

000 

0 

OOO 

0 

000 

0 

OOO 

0 

000 

0 

000 

0 

000 

0 

OOO 

0 

000 

0 

060 

0 

009 

0 

OOO 

0 

000 

0. 

OOO 

0 

000 

0 

OOO 

0 

000 

0 

OOO 

12 

540 

0 

000 k 



10.0 


LIRE #6 LUKE TO l’UU NIANIAU JUNE 21,1977 
REDUCED RANGE DATA IN METERS 

TIME FREQUENCY REDUCED COMMENT S 


HR 

PIN 

SEC 

CORRECTED 

RANGE 

4 

52 

12 

28841 212 

28842 

956 

4 

54 

48 

20841 211 

28842 

955 

4 

57 

24 

28841 221 

28842 

965 

5 

0 

0 

28841 221 

28842 

965 

5 

1 

0 

28041 216 

28042 

960 

5 

2 

0 

28041 214 

28042 

958 

5 

3 

0 

20841 216 

28042 

960 

5 

3 

24 

28841 217 

28842 

961 

5 

3 

48 

20841.216 

20842 

960 

5 

4 

12 

28841.217 

28842 

961 

5 

4 

36 

20841 216 

28842 

960 

5 

5 

0 

28841 214 

28842 

958 

5 

5 

40 

20041 215 

28842 

960 

5 

6 

20 

28841 216 

28842 

960 

5 

7 

0 

28841 219 

28842 

963 

5 

7 

40 

28841 210 

28842. 

.951 

5 

a 

20 

28841 210 

23842 

962 

5 

9 

0 

28841 224 

288 12 

968 

5 

10 

0 

28841 218 

288 12 

962 

5 

11 

0 

20841 219 

28842 

964 

5 

12 

0 

28841 219 

28842 

963 

5 

13 

0 

28841.219 

20842 

963 

5 

14 

0 

28841 214 

28842 

950 

5 

15 

0 

20841 220 

28842 

96 4 

5 

16 

0 

28841 220 

28842 

964 

5 

16 

24 

28041 221 

28842 

965 

5 

16 

40 

20841 217 

288 J 2 

961 

5 

17 

12 

28841 214 

28842 

958 

5 

17 

36 

28811 217 

28842 

962 

5 

10 

0 

28041 210 

28812 

962 

5 

ia 

10 

28841 219 

28842 

963 

5 

10 

36 

28841 219 

28812 

963 

5 

18 

54 

28841 224 

28812 

968 

5 

19 

12 

20841 222 

288 12 

967 

5 

19 

30 

20811 220 

288 12 

964 

5 

19 

40 

28811 220 

28842 

964 

5 

20 

6 

28841 217 

28842 

961 

5 

20 

24 

28841 210 

20842 

962 

5 

20 

42 

28841 227 

28842 

971 

5 

21 

0 

28841 216 

28812. 

960 

5 

21 

18 

28811 216 

28842 

961 

5 

21 

36 

28841 216 

28842 

960 

5 

22 

0 

2884 1.221 

28842 

965 


MEAN LINE lENLril WITHOUT A'l MOSPIIER.IC CORRECTIONS^ 28341 213 METERS 

MEAN COUREC I ED LINE LEND 1 11= 28342 962 METERS 

STANDARD DEVIATION= 0034 MEIERS 

STANDARD DEVI A'l ION 01 THE MEAN= .0005 METERS 

MEAN REI’RAC 1 IVE NUMDEIl- 249 10 
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LIKE *‘6 LUKE TO PUU N1ANIAU JUNE 21,1977 

ATMOSPHERIC DATA TAKEN AT LUKE 
ELLVA1 ION 93 0 4M 
PS YC UROMETER #1 tlAROMETER *1 

RAROMFTER CORRECTION 0 GOMBAll 
OBSERVERS SUIT ON 


UNCORUEC1ED DATA 


TIME 


VET 

DRY 

BAROMETRIC 

COMP [ENTS 

HR MN 

SEC 

TJ Ml* 

11MP 

PRES( MB) 



5 30 

0 

20 3 

22 3 

1007 

00 * 



5 32 

0 

20 3 

22 . 2 

1007 

05 

REWOUND PSYCIIROHETER 

5 34 

0 

20 4 

22 2 

1007 

05 



5 36 

0 

20 3 

22 2 

1007 

90 



5 30 

0 

20 2 

' 22 1 

1007 

90 



5 40 

0 

20 4 

22 0 

1007 

95 



5 42 

0 

20 4 

21 0 

1007 

95 

REWOUND PSYCI1R0ME1 LR 

5 44 

0 

20 4 

21 0 

1000 

00 



5 40 

0 

20 4 

21 0 

1000 

00 4 



REDUCED ATMOSPHERIC DATA 




PI ME 


DRY 

BAROMETRIC 

E 

N 

COMMEN rS 

HR MN 

SEC 

TEMP 

PRES( MB) 




5 30 

0 

22 1 

1007 

00 22 

55 

275 4 


5 32 

0 

22 0 

1007 

05 22 

62 

275 5 

REWOUND PSYCIIROHETER 

5 34 

0 

22 0 

1007 

05 22 

.03 

275 5 


5 36 

0 

22.0 

1007 

90 22 

62 

275.5 


5 30 

0 

21 9 

1007 

90 22 

47 

275 6 


5 40 

0 

21 0 

1007 

95 22 

97 

275 7 


5 42 

0 

21.6 

1007 

9!> 23 

10 

275 9 

REWOUND PSYCHROMETER 

5 44 

0 

21.6 

1000 

00 23 

10 

275 9 


5 40 

0 

21 6 

1030 

00 23 

10 

275 9 


MEANS 


21 9 

1007 

9 1 22 

02 

270 6 
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LINE *6 LUKE TO PUU NIANIAU JUNE 21,1977 

REFLECTOR ATMOSPHERIC RATA TAKEN AT PUU NIANIAU 
EIEVAITON . 2087 90M 

IIE1GHI TO I1IF iOP OF THE TRIBRACH 787 MM 
HEJGIir FROM riJF TOP OF THE TRIBRACH 

TO THE CENTER OF THE RLFLfiC I ORS 236 MM 
TOTAL REFLECTOR HEIGHT ABOVE THE MARKER 1023 MM 
NUMBER OF REFLECTORS 18 
ECOi' NT RIC IT Y OMM 

PSYCIIROMETtR ^2 BAItOMFFER #6 
BAROMETER CORRECTION 0 255MBAR 
OBSERVERS CUSHMAN 

UNCORRECTED DATA 


TIME 

WET 

DRY BAROMETRIC 

COMMENTS 

mi mn 

SEC 

TEMP 

TEMP l’RES(MB) 


5 29 

0 

5 t 

13.0 

798 54F 

HELICOPTER 

5 30 

0 

5 5 

13 1 

798 56 


5 31 

0 

0 O 

13 2 

798 5<> 

REWOUND PS YCI1R0 METER 

5 32 

0 

5 6 

13 1 

798 5 4 


5 33 

0 

5 5 

13 2 

798 55 


5 34 

0 

5 5 

13.3 

798 56 


3 35 

0 

5 5 

13 2 

798 5 1 


5 36 

0 

0 0 

13 3 

798 60 

REWOUND PSYCHAOMETER 

3 37 

0 

5 5 

13 0 

798 57 


5 30 

0 

5 5 

13 2 

798 67 


5 39 

0 

5 5 

13 1 

790 77 


5 40 

0 

5 5 

13 0 

798 79 


5 41 

0 

0 0 

12.9 

798 76 

REWOUND PSYOHROMETPR 

5 42 

0 

5 5 

13 1 

798 74 


3 43 

0 

5 9 

12 9 

798 75 


5 44 

0 

5 9 

13 I 

798 75 


3 45 0 3 4 13 1 

REDUCED ATMOSPHERIC DATA 

798 76 n 

REWOUND PSYCIIROMLTCR 

TINE 
HR MN 

SEC 

DRY 

TEMP 

BAROMETRIC E 
PRES (MB) 

N COMMf 1 NTS 

5 29 

0 

12 9 

798 79 

4 97 

225 0 IIEL I COPIER 

5 30 

0 

13 0 

798 81 

5 03 

225 7 

5 31 

0 

13 1 

<90 01 

5 04 

225 6 REWOUND PSYCIIROKE FER 

5 32 

0 

13 0 

798.79 

5 15 

225 7 

5 33 

0 

13 1 

798 80 

4 98 

225 6 

0 34 

0 

13 2 

798 81 

1 93 

225 6 

5 35 

0 

13 1 

798 76 

4.98 

225 6 

5 36 

0 

13 2 

798 8.5 

4 93 

225 6 REWOUND PiYCIIRONEl'ER 

5 37 

0 

12 9 

798 02 

5 09 

225 8 

0 ,10 

0 

13 1 

798 92 

4 98 

225 . 7 

5 39 

0 

13 0 

799 02 

5 03 

225 O 

5 40 

0 

12 9 

799 04 

5 09 

225 0 

5 41 

0 

12 8 

799 01 

5 1 4 

2 >5 9 REWOUND PSYCIIROMEfER 

5 42 

0 

13 0 

790 99 

5 03 

225 a 

3 43 

0 

12 8 

799 00 

5 61 

225 0 

5 44 

0 

13 0 

799 00 

5 50 

225 8 

5 45 

0 

13 0 

799 01 

4.92 

225 8 REWOUND PSYCIIROME IER 

MLANS 


13 0 

798 90 

5 00 

225 7 
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LINE *6 LUKE 10 PUU NIAPtlAU JUNE 21,1977 

FINAL 0AI I lilt AT ION OF THE HELICOPTER HYGRISTOR AT AIIU'OM 
Pis YGIIROMETF II *2 liAltOFIE'i FR #2 

UAROHETER CORRECIION -O 25 NIJAR 

CAl I BRA DON RLS1 STAN CIS OF HIE HYGUIS'IOR 70 0 KOIIH 
7FR0 PHFSSURE FREQUENCY OF DI010UARI7 59290 01 hi 
(MISFRVER li ARRIS 

UNCORRFCIFI) DATA 



TIME 

1I£ 1 

DRY 

THFRPI 


KYGR 1 

S IlAROHlil RtC 

DIG1017 

COMT HINTS 

I1R 

PIN 

SEC 

IF HP 

1 F PIP 

( irourn 


(KOI III) PHI’S ( III}) 

MUTO. (HZ) 


6 

17 

0 

20 7 

2? 2 

16 

06 


90 t 

0 1017 

71 

35299 

7 

NO HIND, 

G 

0 

0 

O 0 

0.0 

16 

25 


1002 

0 10 17 

60 

05299 

7 

Cl OURS FORM- 

0 

0 

0 

0 0 

0 0 

16 

21 


1045 

0 1017 

70 

35299 

0 

ING RAPIDLY 

0 

19 

0 

20 0 

22 4 

16 

19 


1 07,1 

0 1017 

67 

05300 

0 

AT 3) AW1 

0 

0 

0 

0 0 

0 0 

16 

22 


1060 

0 1017 

66 

05299 

9 

PLIGHT HAZF 

6 

20 

0 

20 6 

22 4 

16 

19 


1096 

0 1017 

52 

35000 

i 

ON HTN 

REDUCED DATA 











TIME 

DIGITAL DIGIQTZ 

DRY 

1IILR 

E 

IS 




HR 

PIN 

SEC 

PRESS PRESS 

HEMP 

TEMP 

CRND 

HF.J I 




6 

17 

0 

1017 

46 101 6 

94 

99 

2 


20 67 

22 70 




0 

17 

40 

1017 

40 1016 

94 

22 

0 

22 6 

20 70 : 

20 50 




6 

10 

20 

1017 

45 1016 

91 

22 

0 

22 7 

20 70 : 

23 70 




6 

19 

0 

1017 

42 1016 

07 

22 

4 

22 a 

20 73 . 

20 91- 




6 

19 

00 

1017 

41 1016 

09 

22 

4 

22 7 

20 50 . 

23 79 




6 

20 

0 

1017 

27 1016 

04 

22 

4 

22 8 

20 31 : 

24 01 
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LINE *6 LUKE TO FUU NlAHIAU JUNE 21,1977 
HELICOPTER LINE DATA FLYING FROM PUU NIANIAU 
UNCORRECTED RATA 



TIME 


ALT 

VEl. 

THERM 

DIGIQTZ 

HYOR1S 

COMMENTS 

lfR 

MN 

SEC 


( KM) 

nrn 

KOIfM 

FREQ. (I1Z) 

icoim 


5 

25 

0 

2 

oau 

45 

19 02 

36170 4 

20 

04 


0 

0 

0 

0 

OGO 

0 

io on 

36 lo5 9 

20 

0 


0 

0 

0 

1 

76a 

0 

in 20 

36130 8 

19 

8 


5 

26 

0 

0 

000 

0 

m 06 

36120 0 

19 

6 


0 

0 

0 

0 

000 

0 

17.92 

36120 5 

19 

5 


0 

0 

0 

0 

000 

0 

17 no 

36100 9 

19 

3 

II 

0 

0 

© 

0 

000 

0 

17 70 

36103 3 

19 

1 

11 

0 

0 

0 

0 

000 

0 

10 00 

36095 3 

10 

3 

HiGn 

0 

0 

o 

0 

.000 

0 

in oi 

36079 6 

13 

8 

V 

0 

0 

G 

0 

000 

0 

17 03 

36054 6 

10 

6 


0 

0 

0 

0 

000 

0 

17 39 

36017 2 

10 

3 


0 

0 

0 

0 

000 

0 

17 35 

35990 5 

10 

3 


0 

0 

0 

0 

000 

0 

17 36 

359112 0 

in 

5 


0 

0 

0 

0 

000 

0 

17 22 

35975 6 

in 

o 


0 

0 

0 

0 

000 

0 

17 on 

35966 6 

m 

0 

HIGH 

0 

0 

0 

0 

.000 

0 

17 39 

35919 9 

22 

5 


0 

0 

0 

0 

000 

0 

17 46 

35900 0 

29 

3 


0 

0 

0 

0 

000 

0 

17 6 1 

351179 3 

46 

0 


0 

0 

0 

0 

000 

0 

in no 

35072 9 

780 

0 


0 

0 

0 

0 

000 

0 

19 13 

35050 2 

0 

0 


0 

0 

0 

0 

.000 

0 

19 111 

35037 3 

1024 

0 


5 

;i i 

0 

1 

036 

45 

19 29 

35014 1 

836 

0 


0 

0 

0 

0 

000 

0 

19 21 

35007 7 

836 

0 


0 

0 

0 

0 

000 

0 

19 16 

35800 0 

876 

0 


0 

0 

0 

0 

"ooo 

0 

19 09 

35792.7 

889 

0 


5 

02 

0 

0 

000 

0 

19 on 

35706 3 

806 

0 

HIGH 

r> 

32 

15 

0. 

. 000 

0 

0 00 

35779 0 

0 

0 


r> 

02 

30 

0 

914 

56 

10 92 

35767 4 

772 

0 


0 

0 

0 

0 

000 

0 

in 9i 

35754 6 

740 . 

.0 


5 

30 

0 

0 

792 

55 

111 55 

35725 1 

0 

0 


0 

0 

0 

0 

000 

0. 

111 54 

35700 2 

970. 

0 


0 

0 

0 

0 

000 

0 

in 54 

35699 9 

979 

0 


0 

0 

0 

0 

ooo 

0 

in 17 

35690 0 

0 

0 

CLOUDS 

0 

0 

0 

0 

000 

0 

111 16 

35679 7 

1 179 

o 

Cl CODS 

0 

0 

0 

0 

000 

0 

ill 12 

3566 1 3 

1 188 

0 

CLOURS 

0 

0 

0 

0 

000 

0 

17 112 

35657 2 

1260 

0 

CLOURS 

5 

35 

0 

0 

000 

0 

in on 

3S<>52 6 

1 196 

0 

Cl OURS 

0 

0 

0 

0 

000 

0 

17 07 

35634 2 

1211 

0 

1 1 VI* I OK 

0 

0 

0 

0 

000 

0 

17 01 

35614 6 

121 1 

0 

Cl OUR 

0 

0 

0 

0 

000 

0 

17 70 

35602 9 

1200 

0 

CLOUD 

5 

36 

0 

0 

000 

0 

17 77 

35595 0 

1 102 

0 

OK 1 1 VEL 

0 

0 

0 

0 

000 

0. 

17 71 

35587 7 

116 1 

0 


0 

0 

0 

0 

000 

0 

17 70 

35379 5 

1 155 

0 


0 

0 

0 

0 

000 

0 

17 61 

35564 4 

1 122 

0 


0 

0 

0 

0 

4 an 

53 

17 60 

35560 2 

1122 

0 


0 

0 

0 

0 

000 

0 

17 30 

35547 3 

1216 

0 


0 

G 

0 

0 

000 

0 

17 36 

35535 9 

1 160 

0 


0 

0 

0 

0 

000 

0 

17 30 

35519 2 

i 169 

0 


5 

on 

0 

0 

390 

0 

17 29 

35513 7 

1 129 

0 


0 

0 

0 

0 

05/0 

0 

17 30 

35502 1 

10 19 

0 


0 

0 

0 

0 

000 

0 

\-( on 

3519 1 5 

1 142 

0 

OVIR CLOURS 

0 

0 

0 

0 

ooo 

0 

17 26 

35479 3 

845 

0 


0 

0 

0 

0 

(>v/t) 

0 

17 21 

35162 3 

760 

0 
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LINE *6 LUKE '10 PUU NIANIAU JUNE 21,1977 
UNCORRECTED DATA 


TIME 

ALT VT.L THERM 


DIGIttfZ 

IIVGRIS 

COMMENTS 

HR 

MN 

SEC 

( KM) MP1I 

K0I1M 

FREd (IIZ) 

Komi 

. 

0 

0 

0 

0 

000 

0 

17 04 


35452 

8 

840 

0 


5 

39 

0 

0 

259 

55. 

17.05 


35443 

7 

0. 

.0 


0 

0 

0 

0 

000 

0 

17 02 


35433 

1 

702 

0 


0 

0 

0 

0 

000 

0 

16 00 


35422 

5 

765 

0 


0 

0 

0 

0 

000 

0 

16 90 


35 

104. 

,4 

604 

0 


0 

0 

0 

0 

ooo 

0 

16 94 


35392 

7 

605 

0 


5 

40 

0 

0 

000 

0 

16 77 


35376 

0 

570 

0 


0 

0 

0 

0 

122 

40 

16 79 


35369. 

.0 

542 

0 


0 

0 

0 

0 

000 

0 

16 74 


35359 

6 

542 

0 


0 

0 

0 

0 

091 

35 

16 67 


35352 

1 

576 

0 


0 

0 

0 

0 

076 

0. 

0 00 


35339 

8 

0 

0 

LEVELING AT LUKE 

0 

0 

0 

0 

000 

0 

0 00 


35330 

5 

0 

0 


0 

0 

0 

0 

000 

0 

0 00 


35330 

2 

0 

01 


0 

0 

0 

0 

000 

0 

0 00 


35303 

9 

0 

0 

LEVELING 

5 

43 

0 

0 

000 

0 

16 74 


35305 

0 

576 

0 


REDUCED IIEI I COPTER ATMOSPHERIC 

DATA 





TIME 

AD JUS 1 EH 

1 PRESS 

TEMP 

1 

£ 

N 


COMMENTS 

HR 

MN 

SEC 

ALT ( KM) 

( MR) 








5 

25 

0 

2 

00172 

007 

10 

16 

o 

0 

00 

225 

8 


5 

25 

20 

1 

99010 

000 

.20 

16 

5 

0 

00 

225 

8 


5 

25 

40 

1 

92027 

014 

07 

17 

0 

0 

00 

226 

7 


5 

26 

0 

1 

09459 

017 

32 

IB 

3 

0 

00 

227 

0 


5 

26 

16 

1 

07330 

019 

.36 

10 

6 

0 

00 

227 

3 


5 

26 

32 

1 

01362 

022 

21 

10 

9 

0 

00 

227 

9 

H 

5 

26 

40 

1 

02933 

023 

59 

10 

9 

0 

OJ 

228 

o 

Jl 

5 

27 

4 

1 

00097 

025 

55 

10 

1 

0 

00 

229 

o 

HIGH 

5 

27 

20 

1 

7692 1 

029 

40 

10 

4 

0 

00 

230 

2 

V 

5 

27 

36 

1 

70627 

035 

54 

10 

0 

0 

00 

231 

6 


5 

27 

52 

1 

61203 

Oil 

70 

19 

0 

0 

00 

233 

4 


5 

20 

0 

1 

54669 

* 05 1 

23 

19 

9 

0 

00 

235 

1 


5 

20 

24 

1 

52575 

053 

31 

19 

9 

0 

00 

235 

7 


5 

20 

40 

1 

51001 

054 

00 

20 

2 

0 

00 

235 

8 


5 

20 

56 

1 

4079 1 

057 

00 

20 

6 

0 

00 

236 

2 

HIGH 

5 

29 

12 

I 

37430 

060 

49 

19 

0 

0 

00 

239 

9 


5 

29 

20 

I 

32646 

073 

.35 

19 

7 

0 

24 

241 

4 


5 

29 

44 

I 

27703 

070 

39 

19 

3 

3 

62 

243 

0 


5 

30 

0 

1 

26104 

079 

95 

16 

*-7 

l 

15 

43 

245 

1 


3 

30 

16 

1 

20037 

005 

4 9 

16 

0 

15 

10 

247 

3 


5 

30 

32 

1 

17019 

000 

63 

15 

9 

15 

29 

243 

2 


5 

31 

0 

1 

12426 

094 

27 

15 

7 

14 

60 

250 

1 


5 

31 

15 

1 

10036 

095 

95 

15 

0 

14 

76 

250 

4 


5 

31 

30 

1 

00944 

097 

94 

15 

9 

14 

07 

250 

8 


5 

31 

45 

1 

071 A3 

099 

04 

10 

1 

15 

15 

251 

o 


5 

32 

0 

1 

05518 

901 

52 

16 

1 

14 

93 

25 1 

7 

HIGH 

5 

32 

15 

1 

03927 

903 

24 

16 

3 

15 

04 

252 

0 


3 

32 

30 

1 

00953 

906 

39 

16 

4 

15 

15 

252 

8 


r> 

32 

45 

0 

90020 

909 

51 

16 

4 

15 

06 

233 

6 


5 

33 

0 

0 

91320 

9 16 

67 

17 

> 

16 

2J 

234 

9 


5 

33 

17 

0 

07497 

920 

70 

17 

2 

16 

60 

236 

0 


5 

33 

34 

O 

05627 

922 

79 

17 

o 

16 

60 

256 

6 


5 

33 

5 1 

0 

03390 

925 

19 

10 

1 

17 

75 

256 

5 

CLOUDS 

5 

34 

0 

0 

01002 

927 

69 

10 

1 

17 

99 

257 

1 

CLOUDS 
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LINE *6 LUKE TO PUU NIANIAU JUNE 21,1977 
REDUCED HELICOPTER ATMOSPHERIC DATA 



IT ME 

ADJUSTED 

PRESS 

TEMP 

E 

N 


COMMENTS 

mi 

MN 

SEC 

ALT (KM) 

(MB) 







5 

34 

25 

0 

7763 1 

931 

42 

10 2 

18 

11 

250 

1 

CLOUDS 

5 

34 

42 

0 

76043 

933 

15 

10 0 

19 

05 

257 

9 

CLOUDS 

5 

35 

0 

0 

75016 

934 

26 

10 3 

10 

33 

250 

7 

CLOUDS 

3 

35 

15 

0 

70921 

930 

72 

10 7 

10 

82 

259 

6 

LEVEL OK 

3 

35 

30 

0 

66579 

943 

.46 

10.9 

18 

99 

260 

0 

CLOUD 

5 

35 

45 

0 

63997 

946 

29 

10 9 

19 

05 

261 

5 

CLOUD 

5 

36 

0 

0 

62259 

940 

20 

19 0 

19 

04 

262 

0 

OK LEVEL 

5 

36 

15 

0 

60656 

949 

97 

19 0 

19 

00 

262 

4 


3 

36 

30 

0 

50059 

951 

95 

19 1 

19 

10 

262 

9 


5 

36 

45 

0 

55559 

955 

60 

19.3 

19 

27 

263 

0 


5 

37 

0 

0 

54644 

956 

61 

19 3 

19 

39 

264 

0 


5 

37 

15 

0 

51035 

959 

73 

19 9 

20 

24 

264 

3 


5 

37 

30 

0 

49350 

962 

40 

19.9 

20 

10 

265 

1 


3 

37 

45 

0 

45744 

966 

51 

20 0 

20 

30 

266 

0 


5 

30 

0 

0 

44057 

967 

04 

20 1 

20 

32 

266 

4 


3 

30 

10 

0 

42060 

970 

64 

20 0 

20 

01 

267 

2 


U 

30 

20 

0 

40212 

972 

71 

20 6 

21 

01 

267 

2 

OVER CLOUDS 

3 

30 

30 

0 

37213 

976 

09 

20. 1 

19 

56 

260 

6 


5 

JO 

40 

0 

33540 

900 

23 

20 2 

19 

20 

269 

7 


5 

30 

50 

0 

31529 

902 

52 

20 7 

20 

21 

269. 

9 


5 

39 

0 

0 

29599 

90 l 

71 

20 6 

19 

09 

270 

5 


5 

39 

12 

0 

27555 

907 

03 

20 7 

19 

66 

271 

l 


5 

39 

24 

0 

25506 

909 

37 

21 1 

20 

39 

271 

4 


5 

39 

36 

0 

21077 

993 

51 

21 0 

19 

46 

272 

6 


5 

39 

48 

0 

19595 

996 

13 

20 9 

19. 

34 

273 

4 


5 

40 

0 

0. 

16260 

999 

96 

21 3 

19 

62 

274 

1 


5 

40 

22 

0 

14950 

1001 

47 

21 3 

19 

36 

274 

6 


5 

40 

44 

0 

13144 

1003 

56 

21.4 

19 

51 

275 

0 


5 

41 

6 

0 

11716 

1005, 

21 

21 6 

19 

98 

275 

3 


5 

41 

20 

0 

09872 

1007 

35 

21.5 

19 

93 

275 

9 

LEVELING AT 

5 

41 

50 

0 

09603 

1007 

66 

21 5 

19 

89 

276 

0 


5 

42 

12 

0 

09542 

1007 

73 

21 5 

19 

04 

276 

I 



MULTIPLICATION CONSTANT 10 HUMPHREYS FORMULA® 0 998507 
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LINE #<> LUKE 'IO PUU NIANIAU JUNP 21,1977 
IIANLE DATA TAKEN AT 1 UKE 

HEIGHT TO THE 10P Op THE TTUBRAGH 1017 Mil 
TOTAL 1ASER HETCH! ABOVF TlHi MARKER 1257 Mil 
HELEN 1 RICH Y ©MM 

DAYl IGH1 MI JPR OUT 

A 107 MM OFFSET HAS CP IiN DIALED INTO THE INSTRUMENT 
LINEA1U1Y CORRECTION 7 MM 
OHSERVP RS CART ER, SU ETON , WOI EE 

UNCORRLG I ED RANG]' DATA 


TIME RANGE FREO CATTERY THERM COMMENTS 

HH PIN SEC (MEIERS) DIFF VOLTAGE ( KOHM) 


5 

23 

0 

28041 

230 

-4 

0 

12 

540 

0 

000 * 

0 

0 

0 

203 PI 

230 

0 

0 

0 

000 

0 

000 

5 

32 

0 

20041 

239 

0 

0 

0 

000 

0 

000 

0 

0 

0 

2801 1 

230 

-5 

0 

12 

520 

0 

000 

0 

0 

0 

2004 1 

236 

0 

0 

0 

000 

0 

000 

0 

0 

0 

2004 I 

242 

0 

0 

0 

000 

0 

000 

0 

0 

0 

208 1 1 

227 

0 

0 

0 

000 

0 

000 

0 

0 

0 

20011 

225 

0 

0 

0 

000 

0 

000 

0 

0 

0 

2004 1 

232 

0 

0 

0 

ooo 

0 

000 

0 

0 

0 

2004 1 

232 

0 

0 

0 

000 

0 

000 

0 

0 

0 

20011 

232 

0 

0 

0 

000 

0 

000 

0 

0 

0 

200 1 1 

222 

0 

0 

0 

000 

0 

000 

0 

0 

0 

200 1 1 

.232 

0 

0 

0 

000 

0 

000 

0 

0 

0 

200 1 1 

210 

0 

0 

0 

000 

0 

000 

5 

36 

0 

2004 1 

236 

-5 

0 

13 

520 

0 

000 

0 

0 

0 

2004 1 

‘>‘2? 

0 

0 

0 

000 

0 

000 

0 

0 

0 

2001 1 

227 

0 

0 

0 

OuO 

0 

000 

0 

0 

0 

2001 1 

233 

0 

0 

0 

000 

0 

0001 

5 

40 

0 

200 1 1 

234 

-5 

0 

12 

5 10 

0 

000 


REDUCED RANGE DATA IN METERS 

TIME f RL'OUENGY REDUCED GOMMEN I S 

HR MN SEC LOKRLCIPD RANGE 


5 

23 

0 

2004 l 

216 

2004 i 

959 

5 

27 

30 

2004 1 

216 

20012 

900 

5 

32 

0 

200 1 1 

226 

28(4*2 

969 

5 

32 

20 

20011 

210 

200 2 

961 

r> 

32 

40 

200 1 1 

224 

20012 

967 

5 

33 

0 

2004 1 

230 

20012. 

973 

5 

33 

20 

2804 1 

215 

20042 

950 

r> 

33 

40 

2004 1 

213 

20012 

9 36 

5 

34 

0 

20011 

220 

20042 

963 

5 

34 

20 

200 1 1 

220 

LH042 

963 

5 

34 

40 

20041 

220 

20012 

963 

5 

35 

0 

200 1 1 

210 

200 12 

953 

5 

35 

20 

200 1 1 

220 

20042 

963 

5 

35 

40 

20011 

220 

20042 

971 

5 

36 

0 

2004 1 

221 

20842 

967 

5 

39 

0 

2004. 1 

2 1 5 

20842 

950 

5 

42 

0 

2004 1 

215 

20042 

950 

5 

45 

0 

200 1 1 

221 

20842 

96 1 


LIRE *6 LUKE TO PUU NIANIAU JUMP 21,1977 

MEAN LINE LLNGTFI III TIIOUT ATMOSPHERIC CORRECTIORS= 20841 219 PIEIlRS 

MEAN CORRECTED LINE LENC 1 1G 211042 962 HHEfVs 

STANDARD DEVIATION" 0054 PIETERS 

STANDARD DEVIATION OP THE MEAN- 0012 METERS 

MEAN REFRACT I VP NUMBER* 249 13 
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SAMPLE OUTPUT OF QUADRILATERAL ADJUSTMENTS 


***** ^ “ 


?VW 

e sr^^ 


$0* 


pp.ECEDi^G — 


v't*” ?*&••«*■ 

r .»n i J 


i) 
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ADJUSTMENT OF LUKE QUADRILATERAL WITH DIAGONALS AND CENTER POINT ARPA=3034.34 

MEASURED LINE LENGTHS 

AB= 31 25 1500 

AC= 20 760443 

AD= 3.272860 

AE= 20 686788 

BC= 7 214161 

BD= 30 131599 

BF= 10 071607 

CD r 26 903473 

CE= 0 641175 

DE= 19 332759 

CALCULA IED ANGLES (RADIANS): CALCULATED ANGLES (DEGREES) 


GAMMA 

1-4 

GAMMA 

1-4 



0 

1 17 106247E+0 1 

67 

0 

33 

985 

0 

1 10056060E+0 1 

63 

30 

37 

.037 

0 

1905 15 144E+0I 

109 

9 

25 

693 

0 

209760642E+01 

120 

1 1 

2 

301 

ALPHA 

1-4 

ALPHA 

1-4 



0 

945486280E+00 

54 

10 

20 

546 

0 

100257509E+00 

5 

44 

39 

596 

0 

100665290E+0 1 

103 

30 

40 

927 

0 

220 1369 19E+0G 

13 

4 

16 

617 

BETA : 

1-4. 

BETA 

1-4 



0 

226379077E+00 

12 

50 

14 

036 

0 

100830429E+0 1 

57 

46 

17 

609 

0 , 

, 9B4999493E-0 1 

5 

30 

37 

073 

0 

106947268E+0 1 

107 

6 

46 

419 

DELTA 

1-4 

DELTA 

1-4 



0 

107096239E+0 1 

61 

21 

41 

050 

0 

19207 1624E-* 00 

1 1 

3 

2 

620 

0 

150230923E+0 1 

06 

4 

50. 

.024 

0 

176 104279E+00 

10 

5 

24 

1 15 

THETA 

1-4 

THETA 

-1-4 . 



0 

I0090444QE+00 

5 

46 

53 

006 

0 

9 15684468E+00 

52 

27 

53 

479 

0 

402763 160E+00 

23 

4 

35 

065 

0 

192149707E+01 

no 

5 

37 

306 

PHI 1- 

•4 

PHI 1-4 



0 

28478I650E+0 I 

163 

10 

4 

335 

0 

7235 1095 1F+00 

41 

27 

16 

496 

0 

25627252 1E+01 

146 

50 

0 

020 

0 

149 132392E+00 

0 

32 

40 

764 


ANGLE CONDITION CLOSURES (RADIANS)' 
1. -0 4382E-05 = -0.904" 

2 0 1221E-04 = 2 510" 

3 -0 5772E-05 = -I 190“ 

NORMALS 10 LINES (KM) 

KAB= 2 188100 
KBC= 18 493254 
KCD= 1 870416 
KA!)= 7 904133 

KAC= -1 925249 
1050= -2 0679 9 6 
KAB2= -2 003049 
KBC2= -8 620965 
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KAC2= -2 588704 
KAE2= 1 16 >865 
KBE2= 1 846190 
KGE2= 2 656267 
KBC3= -8.620965 
KBD3= -1.005510 
KCD3= -3 307011 
KBE3= 0 942579 
KCL3= 3.577100 
KDE3= 0 778910 

INVERSE WEIGHTS OF LINES. 

PAB= 1 000 

PBC= 1 000 

PCD= 1 000 

PAD= 1 000 

PAC= 1 000 

PBD= 1 000 

PAF= 1.000 

PBE= I 000 

PCE= I 000 

PDE= 1 . OOO 

CORRELATES 
-0 322236737E-05 
0 895756309E-05 
-0 . 270095789E-05 


CORRECTIONS TO LINES (MM), 

VAB= -5 0 

VBG= -0 9 

VGD= -09 

VAD= -0 4 

VAC= -1.8 

VBD= 4 3 

VAE= 7 7 

VBE= 1 9 

VCE= 2 6 

VDE= -3 6 

SOM W= 139 502 

CHECK ON SUM VV= 139 502 

SICNA= 6 819 MM/LINE 

ADJUSTED LINE LENGTHS (KM) 

AB= 31 251582 

BC= 7 214160 

CD= 26 983472 

AD= 3 272860 

AC= 28 768441 

BD= 30 131603 

AE= 20 686796 

BE= 10 871609 

LE= 8 641178 

DE= 19 332755 

CHECK OF CORRECTIONS 

1 -0 27756L— 16 

2 0 10747E-06 

3. 0 40439 E-05 
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ADJUSTED ANGLES (RADIANS). ADJUSTED ANGLES (DEGREES). 


GAMMA 

1-4 

GAMMA 

1-4 



0 

, 1 17 186565E+01 

67 

8 

34 

641 

0 

1 10856 11 1E+01 

63 

30 

57 

143 

0 

1905 15237E+0 I 

109 

9 

25 

085 

0 

2097606 17E+01 

120 

1 1 

2 

331 

ALPHA 

1-4* 

ALPHA 

1-4 



0 

945406525E+00 

54 

10 

20, 

,595 

0 

1002576 17E+00 

5 

44 

39 

610 

0 

100665242E+GI 

103 

30 

40 

01 1 

0 

220 1 36782E+00 

13 

4 

16 

589 

BETA 1-4 

BLfA 

1-4 



0. 

. 226379 I22E+00 

12 

50 

14 

046 

0 

1 00830350E+0 1 

57 

46 

17 

525 

0 

9O4999572E-0 1 

5 

38 

37.075 

0 

1069*1 6939 E+01 

107 

6 

45 

741 

DELTA 

1-4 

DELTA 

1-4 



0 

1G7095870E+0 1 

61 

21 

41 

090 

0 

192876475E+00 

1 1 

3 

3 

629 

0 

15 02309 32E+0 1 

06 

4 

50 

042 

0 

17610432015+00 

10 

5 

24 

123 

THETA 

1-4 

theta 

1-4 



0 

I00906943E+00 

5 

46 

53 

551 

0 

9 156B4639L+0Q 

52 

27 

53 

515 

0 

402763052E+00 

23 

4 

35 

043 

0 

192150 1G5E+01 

110 

5 

30 

207 

PHI 1- 

■4 

PHI 1- 

-4 



0 

204700924E+0 1 

163 

10 

2 

820 

0 

7235 10692E+00 

41 

27 

16 

443 

0 

256272528E+0 1 

146 

50 

0 

034 

0 

149 132090E+00 

8 

32 

40. 

703 


ANGLE CONDITION CLOSURES AFTER ADJUSTMENT (RAD). 

1. 0 29I0E-10 = 0 OOO" 

2. 0 1 164E-09 = 0 000" 

3* 0 2037E-09 = 0 000" 

TRIANGLE CONDI HON CLOSURES. 

0 000 " 

0 000 " 

0 000 ” 

0 000 ” 

0 000 ” 



APPENDIX II 


INSTRUCTIONS FOR THE USE OF DATA 1 


I INTRODUCTION 

DATA1 was developed to compute marker-to-marker distances from laser 
ranging data The corrections are dependent upon the instruments used 
and adjustments would be necessary if any instrument changes are made 
Distance measurements are taken with a RANGEMASTER II Special 
measurements of the laser frequency and/or resistance of a thermistor 
attached to the Rangemaster oscillator and the battery voltage were 
taken prior to 1978 At that time a new, more stable oscillator was 
installed, eliminating the need for the special measurements Digital 
barometers and mercury thermometer psychrometers are used for measured 
atmospheric conditions on the ground In the case that a helicopter 
collects atmospheric data along the line it should be equipped with a 
pressure transducer, a thermistor, and a hygristor These are calibrated 
against ground instruments just before take-off and after landing 

An explanation of all equations and corrections to reduce measured 
distance to marker-to-marker distance is written out at the top of the 
computer printout 

DATA1 was written by Jerry Carter and the xynetics plotting suo- 
routines were written by J E Wolfe 


II DATA CARDS 

«P 

The first card of the data determines whether or not reductions 
will be made and which plots will be generated 


Columns Field 

1-3 13 


7 

9 

11 

13 

15 

17 


II 

II 

II 

II 

II 

II 

II 

II 


Description 


DEBUG If 999 only uncorrected data will be 
printed out If 099 all data, corrected and 
uncorrected will be printed out If blank 
" " all uncorrected data and reduced data 
between and including data with stars (*) 
in the appropriate column will be printed out 

PLOT OPTIONS (Plot generated if option = 1) 

Uncorrected range vs time 

Uncorrected wet temp vs time 

Un corrected dry temp vs time 

Uncorrected pressure vs tine 

Digiquartz frequency vs time 

Thermistor resistance vs time 

Hygristor resistance vs time 

Altitude vs time 


19 
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Columns 

Field 

Description 

21 

11 

Reduced ground temperature vs time 

23 

11 

Reduced ground pressure vs time 

25 

11 

Ground vapor pressure vs time 

27 

11 

Ground group refractive number vs time 

29 

. 11 

Helicopter temperature vs altitude 

31 

11 

Helicopter vapor pressure vs altitude 

33 

11 

Helicopter group refractive number — 
linear term vs altitude 

35 

11 

Helicopter group refract ive number vs time 

37 

11 

Range vs time 


Cards 2, 3, and 4 contain constants used in the reduction equations 
and will generally remain uncnanged Card 2 contains the constants for 
conversion of thermistor resistance to temperature 

T = 1/(4 + BlnRTHl + C(In RTH1) 3 ) where RTH1 = RTH/R25 


Columns 


Field 

Constant " 

1-10 

» 

E10 6 

4 

16-25 


E10 6 

B 

31-40 


E10 6 

C 

46-51 


F6 3 

R25 


The constants for hygristor resistance to water vapor pressure are 
read m from card 3 

% relative humidity = D E log RHG1 + F(log(RHGl))“ 


RHYG1 = normalized and calibrated hygristor resistance 


Columns 


Field Constant ’ 


I- 6 F6 3 

II- 15 F5 2 

21-28 F8 4 


D 

E 

F 


Card 4 has the constants for Digiquartz frequency conversion to pressure 
on it 

9 

Pressure = G(1 - freq /s) - T(l-freq /s)^ 

Helicopter velocitv correction 

2 

Pressure = pressure (1 -*• 0(air speed) - 1 - (R(air speed/1012) ) 


Columns 


Field Constant " 


1-8 

11-18 

21-29 

31-39 


F8 

F8 

29 

29 


G 

T 

0 

R 


o 
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s is read in separately for each line and is the "0" pressure frequency 
as obtained through calibration by comparison with ground station (see 4 
helicopter calibration data card 2, col 47-53) 

After the atmospheric constants at the beginning of the data set, the 
actual line data are arranged m the following groups 

1 Header card — this will appear at the top of every page and at the top 
of the plots Information which should be on the header includes 
line number, description, and date (e g LINE 45 PIER TO ARPA JULY 7, 
1977) 

2 Laser station atmospheric data + 


Card # 

Columns 

Field 

Description 

1 

1-2 

A2 

BA, Base atmospheric data ID 

2 

1-2 

42 

BA 


4-9 

312 

Day, Month, Year 


11-22 

4A3 

Location 


24-29 

F6 2 

Elevation (meters) 


31 

11 

Psvchrometer - 


33 

11 

Barometer 4 


35-38 

F4 2 

Barometer correction (mbar) 


40-54 

5A3 

Observers 

3 to N 

1-2 

42 

BA 


4-9 

312 

Hour, minute, second 


11-13 

F3 1 

IVet temperature ( °C) 


15-17 

F3 1 

Dry temperature (*0) 


19-24 

F6 2 

Pressure (mbar) 


25 

A1 

Star (*) 


26-52 

9A3 

Comments 


+Note In the event that ground atmospheric stations have been set up 
along the line they will follow this format 


3 Reflector station atmospneric data 

Card r Columns Field Description 

1 1-2 A2 RE, Reflector atmospheric data ID 

2 1-2 A2 RE 

4-9 312 Day, month, jear 

11-22 4A3 Location 

24-29 F6 2 Elevation (meters) 

31-34 F4 0 Reflector height to the too of the 

tribrach (mm) 

36-38 F3 0 Correction foi reflector configuration 

(mm) 

40-41 12 - of reflectors 

43-44 12 Eccentricity (mn, correction for 

setup error over marker) 

46 II Psycnrometer - 

48 Ii Barometer - 

50-53 F4 2 Barometer correction (noar) 

55-78 843 Observers 

3 to N 1-2 A2 RE 

4-9 312 Hour, minute, second 

11-13 F3 1 tfet temperature (°C) 

15-17 F3 1 Dry temperature (’C) 

19-24 F6 2 Pressure (moar) 

25 41 Star (*) 

26-52 9A3 Comment 



Helicopter calibration data 


Card # 

Columns 

Field 

Description 


1 

1-2 

A2 

HC, Helicopter calibration data 

ID 

2 

1-2 

42 

HC 



4-9 

312 

Day, month, year 



11-22 

4A3 

Location 



24-32 

3A3 

INITAL, MIDDLE, or FINAL calibration 


33 

11 

Psychrometer # 



35 

11 

Barometer “ 



37-40 

F4 2 

Barometer correction (mbar) 



42-45 

F4 2 

Calibration resistance (kohm) - 



47-53 

F7 2 

Zero pressure frequency (Hz) 



55-70 

5A3 

Observer 


3 to N 

1-2 

A2 

HC 



4-9 

312 

Hour, minute, second 



11-13 

F3 1 

Wet temperature ( °C) 



15-17 

F3 1 

Dry temperature ( °C) 



19-24 

F6 2 

Pressure (mbar) 



26-29 

F4 2 

Thermistor resistance (kohm) 



31-36 

F6 1 

Frequency (Hz) 



38-42 

F5 1 

Hygnstor resistance (kohm) 



44-52 

3A3 

Comments 


This section must 

precede the 

helicopter atmospheric data section 

Helicopter 

atmospheric data 



Card & 

Columns 

Field 

Description 


1 

1-2 

A 2 

HA, Helicopter atmospheric data 

ID 

2 

1-2 

42 

HA 



4-9 

312 

Day, month, year 



11-22 

443 

Starting point 



24-35 

4A3 

Ending point 


3 to N 

1-2 

42 

HA 



4-9 

312 

Hour, minute second 



11-15 

15 

Altimeter reading (ft) 



17-19 

F3 0 

Airspeed (MPH) 



21-24 

F4 2 

Thermistor resistance (konm) 



26-31 

F6 1 

Digiquartz frequency (Hz) 



33-37 

F5 1 

Hygnstor resistance (kohm) 



38 

A1 

Star (*) 



39-59 

743 

Comments 



Laser 

Card 

range data 
- Columns 

Field 

Description 

1 

1-2 

42 

BR, Base station range data ID 

2 

1-2 

A- 2 

BR 


4-9 

313 

Day, month, year 


11-22 

443 

Locat ion 


24-27 

F4 0 

Height to the top of the tribrach (mm) 


29-31 

43 

Daylignt filter — IN or OUT 


33-35 

F3 0 

Linearity correction (mm) 


37-38 

12 

Eccentricity (mm, correction for 


40-63 

8A3 

setup error over marker) 
Observers 
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Card 

Columns 

Field 

Descnotion 

3 to N 

1-2 

A2 

BR 


4-9 

312 

Hour, minute, second 


11-19 

F9 3 

Range (meters) 


21-24 

F4 1 

Laser frequency (last 3 digits plus 
tenths only) (Hz) 

26-30 

F5 3 

Battery voltage 

32-36 

F5 3 

Thermistor resistance (kohm) 

37 

A1 

Star (*) 

38-61 

8A3 

Comments 

1-2 

A2 

GO, signals the end of the line 


After the GO statement, the next line (starting with the header 
card) fs inserted After the GO statement of the last line put PAU m 
the first three (3) columns of the next card PAU means all done m 
the Hawaiian language and signifies the end of the data 

In all instances where data are given, both the first and last 
data points must be included 

When atmospheric data are taken at intermediate ground stations 
along a line (different from the laser and reflector locations) to 
determine the refractive index, the subroutines require the same ID 
number for data reduction (see 2 "laser station atmospheric data”) 
However, the use of the same ID prevents the program from distinguishing 
the different locations if the data input card sets are placed consecu- 
tively Therefore m order to achieve separation a card with RR m the 
first two columns is required between two stations, that otherwise carry 
the same ID (BA m this case) The computer then will print out a new 
header that includes the location name, line name, etc 

This situation occurs any time two different sections of data are 
placed consecutively with the same ID Another example of such a case 
is wnen the helicopter takes calibration data (the ID being HC in this 
case) at the beginning of the line (first section) and at the end of 
the line (second section) and the data are placed consecutively Thej 
must therefore be separated by an RR card 
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APPENDIX III 
COMPUTER PROGRAM DATA 1 
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C*:F:F:F'FsF:F:F:F'F!F:F>F:F:F-F;F:F>F:F>F;F:F:F'F-F:F.F'F'F:f *:F;F'F'F'F'F F:F:F;F'F'’''F'F'F!F:F!F'F5 F.FsFsF:F;F 5F:F FJF-FSsI: c 

C 

C THE DATA I PROGRAM IS FOR USE IN REDUCING ALL DATA COLLECTED 

C FROM MAKING DISTANCE MEASUREMENTS WITH A RANGEMASTER II LASER 
C IT IS CAPABLE OF REDUCING ATMOSPHERIC MEASUREMENT'S MADE EITHER ON 
C TIIE CROUND OR BO ill ON THE GROUND AND IN THE AIR THE RESULT IS A 
C SINGLE MARKER- TO-PtARKER LINE LI 1 NOTH AN EXPLANATION OF THE COIUI- 
C ECTION EQUATIONS USED IS WRITTEN OUT AT IRE TOP OF THE COMPUTER 
C PRINTOUT INSTRUCTIONS I'OR THL USE OF DATA 1 AND THE DATA FORMATS 
C MAY BE FOUND UNDER SEPARATE COVER IN "INSTRUCTIONS FOR THE USE OF 
C DATA1 " 

C DAT A I WAS WRITTEN BY JLllRY CARTER IN 1977 FOR USE IN REDUCING 
G DATA COLLECTED UNDER THE NASA PROJECT "CRUSTAI DF FORMAT ION" IN 
G SUPPORT OF 1IALLAKALA LUNAR LASER RANGING GRAN I# NSG7179 ALL 
C XYNET I CS PLOTTING SUBROUTINES WERE WRITTEN BY J E WOLFE THIS 
C VERSION IS WORICABIE ON A HARRIS COMPUTER. 

G 

C HAWAII INST1IUIE OF GEOPHYSICS 

G 2525 CORREA ROAD 

C HONOLULU, HAWAII 96022 

G 

C"F ^**<.***¥***^1:* F=F** F F**-F F-F:i F F F* F F'F:F.F:F'F:F-F'F F F~F -F-F*** F*.F-F:J 

BLOCK DATA 

I NTEGER BR, BA , RE , HC , IIA , GO , DEBUG 
INTEGER HR( 200) ,MN(200) ,SECI20O) 

IN I EGER DAI 200) ,M0(200) , YRI200) ,H<80) 

COMMON /LASER/BR, RA, RE, HC, HA, GO, HR, MM , SEC , DEBUG , NUM, 

2PA, MO, YR, H, NTITLE, IPI OTI 17) , IR,NM0(200) 

DATA BR/’BR’/.BA/’BA’/.ltE/’ RE’ /, IIC/ * HC ’ /, 

2HA/’ IIA’ / , GO/ ’ GO’ /, IR/’RR’/ 

END 

COMMON /LASER/BR, BA, RE , HC , HA, GO, HR, MN, SEC , DEBUG, NUM, 

2DA, MO, YR, II, NTI TLF,, 1PL0TI 17) , IR,NMO(2O0) 

- INTLCER BR, BA, RE, IIC, IIA, CO, DEBUG 
INTEGER OBI 9) , LOCI 4) ,HIOO) , HR! 200) , PIN! 200) ,SF:C!20O) , PSY, BAR, 
2C0NF IG, ECC , DAI 200) ,M0I200) ,YIU200) ,ECD, IBUFFI26) 

REAL IH,P(2,2,6) , YI2.2) ,ELEI2) ,PREI6) ,TEMI6) ,HUMI6) , ALT! 200)-, 
2REFI200) , LIN 

DATA PAU/’P’/, IN/’ IN ’/.BLANK/’ ’/ 

IFLAG=0 

CALI PLOTS (ND.NE.l) 

C 

C PSYCIIROMETER CORRECTIONS 
C 

PI 1 , 1, 1)=- 014 
PI 2, 1 , 1 ) = 1 001 
PI 1,2, 1)=- 175 
P I 2 , 2 , 1 ) = I 000 
PI 1, 1,2)=- 023 
PI 2, l , 2) = 1 005 
PI 1,2,2)=- 107 
P(2,2,2)= 1 009 
PI 1 , 1 , 3) = 153 
PI 2, 1,3)= 995 
PI 1,2,3)=- 425 
PI 2, 2, 3) = I 000 
PI 1, 1,4)=- 276 
PI2, 1 , 4) = 1 016 
PI 1,2, 4) =0 274 
PI 2 , 2, 4) =0 995 
PI 1 , 1 ,5)=0 400 
, PI 2 , 1 , 5) = 0 969 
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PC 1,2,5) = - 416 
PC2, 2, 5) =0 983 
PC 1, 1,6)=- 399 
PC 2, 1 , 6) = 1 021 
PC 1,2,6) =0 062 
PC2,2,6)=1 002 

READS AND WRITES ATMOSPHERIC CALIBRATION CONSTANTS 

11EADC25, 102) DEBUG, ( IPLOTC I), 1=1, 17) 

102 FORMAT! 13, 17C IX, ID) 

READ! 25 , 106) A,B,C,R25 

106 FORMATC3CE10. 6,5)0 ,F6 3) 

READ! 25, 107) D,E,F 

107 FORMAT! F6 3 , 4X, F5 2,5X,F8.4) 

READ! 25 , 108) G,T t O,R 

108 F0RMATC2CF8 2,2X),E9 6,1X,E9 6) 

WRITE! 6 , 1) 

1 F0RMA1C ’ 1’ , 17X, ’EXPLANATION OF CORRECTIONS’,//, 

2’ EACH DATA SET IS NUMBERED BY PAGE WITH THE LINE NUMBER, ’ ,/, 
3’ ENDPOIN IS, AND DATE WRITTEN AT THE TOP OF THE PACE DATA ’ ,/, 

4’ SETS OR "LINES" ARE COMPOSED OF SEVERAL SECTIONS THE FIVE’,/, 
5’ DIFFERENT SECTIONS, 1) ATMOSPHERIC DATA AT 1 HE LASER, 2)’,/, 

6’ ATMOSPHERIC DATA AT THE REFI ECTORS, 3) HELICOPTER CALI- ’ ,/, 

7’ BRAT I ON DATA, 4) HELICOPTER ATMOSPHERIC DATA, AND 5) RANGE’,/, 
8’ DATA, ARE FURTHER DIVIDED INTO TWO SUBSECTIONS, UNCORRECTLD’ ,/, 
9’ AND REDUCED DATA THE UNCORRFCTED DATA IS LISTED AS IT WAS’,/, 
1’ WRITTEN IN THE FIELD STARS (I) IN THE ROWS INDICATE THE’,/, 

1’ BEGINNING AND ENDING POINT’S TO BE USfcD IN REDUCING THE DATA ’ ,/ 
2’ ALL DATA , EXCEPT RANGE DATA, ARE LINEARLY I NTERPOLATF D ’ ,/, 

3’ BEFORE ANY REDUCTIONS ARE DONE MISSING RANGE VALUES ARE ’,/, 

5’ EXGIUDED FROM THE LINE TIMES AND DATES AnE LOCAL (GMT- 10)’,/) 
WRITE! 6 ,3) 

3 FORMAT! ’0’ , I5X, ’DIGITAI BAROMETER CORRECTIONS’ ,//, 

2’ AIL DIGITAL BAROMETERS HAVE BEEN CALIBRATED IN 20 TO 25’,/, 
3’ MILLIBAR STEPS THE CORRECTION APPLIED FOR THE PRESSURE 
4’ RANGE OBSERVED IS WRITTEN ABOVE THE UNCORRECTLD DATA’,/) 

WRITE! 6,4) CK, C CPC I , J, K) , 1=1,2) , J= 1 , 2) , K= 1 , 6) 

4 FORMAT ( ’ 0 ’ , 1 8X, ’ PSYCIIROMETER CORRFC 1 1 ONS ’ , // , 

2’ LINEAR CORRECTIONS FOR EACH THERMOMETF R WERE CALCULATED’,/, 
3’ FROM A CALIBRATION AGAINST OSU THFRMOMET ERS THE TRUE TEMP-’,/, 
4’, ERATURE T=A+BM ! M= MEASURED 1 EMI’ERATURE) ’,/, 

5/.23X, ’A’ ,6X, ’B’ , 1 IX, ’ A’ ,6X, ’B’ , ',6! ’ PSYC1IR0MEIER ,.11, 

5’ WET ’ , 2! F6 3, IX) , ’ DRY ’ ,2(16.3, IX) ,/) ) 

WRITE (6,5) 

5 FORMAT! ’0’ , I3X, ’CONVERSION OF GROUND TEMPERA TURES ’ , / , 

213X, ’AND PRESSURE TO WATER VAPOR PRESSURE’,//, 

3’ E=FSAT- 00066( 1+ 001 15! TWLT ) ) C TDRY-TWE 1)1” , // , 

5’ E= WA 1 ER VAPOR PRESSURE ( MBAR) * , / , 

6’ ESAT= 269782 133 EXP (-4271 07 1252/! TWET+242 625))’,/, 

6’ = A LEAST SQUARES FIT lO THE SMITHSONIAN PSYCHROMEl’RIC’ ,/, 

7 ’ TABLES FROM 0 TO 25 DEGREES C ’ , / , 

8’ T WET= WFT THERFIOMETER TEMPERATURE ( DEG. C) ’ , / , 

9’ TDRY= DRY T HERMOMF Hill TEMPERATURE ( DLG C)’,/, 

I’ P= PRESSURE (MBAR)’,/) 

WRITE! 6 , 7) A, B, G , R25 , R25 

7 FORMAT! ’ 0 ’ , 1 9X, ’ HELICOPTER TEMPERATURE ’ , / , 

II IX, ’ CALCULATED FROM THERMISTOR RESISTANCE’ , 

2//,’ T- l/( ’ , F9 8, ’ + ’ ,F10 9 , ’ LN( IUH1 ) + * ,Y 12, 1 1 , ’ ( LN ( RTH 1 ) ) * S3 ) ’ , // 
4’ T=*l EMPERAI URP (DEG K)’,/, 

5’ RTH1=RTH/’ ,F6 3,/, 

6 ’ RTH= THE RM r STOR RLS l S TANGE ( KOHM) ’ , / , 

71X.F6 3, ’=CAI IBRAT ION RESISTANCE AT 25 DEG C (KOHM)’,/) 

WRITE! 6, 8) G.T.R.Q 
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8 FORMAT! ’O' ,3X, ’ CONVERT INC HELICOPTER DIG1 QUARTZ FREQUENCY TO PRESS 
IURE’ ,//, 

2’ P=’,F8 2, ’ ( l-FREQ/F)— ’ ,FT.2, 5 ( I-FREQ/F) 4*2’ ,/, 

3’ = PRESSURE FROM DIGIGUARTZ TRANSDUCER (MBAR) ’ ,/, 

4’ FRFQ= DIG I QUARTZ FREOUENGY (HZ)’,/, 

5’ t=ZERO PRESSURE FREQUENCY (HZ). F IS CALCULATED FOR EACH’,/, 

6’ LINE BY COMPARISON WITH GROUND I NSTRUMEN'l'S AND IS WRITTEN’ 

7’ IN THE HELICOPTER CALIBRATION SECTION ABOVE THE UNCOR-’,/, 

7’ REG I ED DATA’ ,/, 

9 ’ PRES= P+P( ( ’ , F8 7, ’ ) ( Vs K2)/1012- ’ , F8 7,’(V))’,/, 

2’ = VELOCITY CORRECTED PRESSURE (MBAR)’,/, 

8’ V= HELICOPTER AIRSPEED (MPH)’,/) 

WRITE( 6,9) D, E, F 

9 FORMAT! ’O’ , 12X, ’CALCULATION OF WATER VAPOR PRESSURE’,/, 

213X, ’FROM HELICOPTER HYCRISTOR RESISTANCE’,//, 

3’ E= ( ESAT ) ( %RH) / 1 00 ’ , // , 

4’ E= WATER VAPOR PRESSURE (MBAR)’,/, 

6’ ESAT= 269782 133 EXP(-427l 071252/( TWET+242 625))’,/, 

6’ = LEAST SQUARES FIT TO THE SMITHSONIAN PSYCIIROMETREC’ ,/, 

6’ TABLES FROM 0 TO 25 DEGREES G’,/, 

7’ T= IEMPERATURE (DEG C)\/, 

O’ %RH=’,F5 2 , ’ + ’ , F5 2,’(R)’,F6 2, ’ ( ID ( R) ’ ,/, 

9’ = LF AST SQUARES FIT TO THE PUBLISHED PERCENT RELATIVE’,/, 

V HUMIDITY CURVE’ ,/, 

1’ R= LOG( ( CAL IB) ( CRES) ) ’ , /, 

2’ CALlB=l-( I-II) ( l-T/25) ’ ,/, 

3’ =LINEARLY INTERPOI ATED TEMPERATURE CORRECTION TO THE’,/, 

4’ 25 DEG G CURVE’,/, 

6’ H=. 98599- 3699 1< LGG( CRES) ) + . 1 U59( L0G( CRES) ) * *2’ ,/, 

6’ = LEAST SQUARES FIT TO THE TEMPERATURE CORRECTION CURVES’,/, 

7 ’ FROM 0 TO 25 DECREES C ’ , / , 

ft* » / 

9* ^NORMALIZED HYCRISTOR RESISTANCE’ ,/, 

9’ RHYG= HYCRISTOR RESISTANCE (KOHM)’,/, 

1’ R33= HYCRISTOR RFSIS FANCE AT 33% RELATIVE HUMIDITY AND 25’,/, 

I’ DEGREES C R33 IS DETERMINED FOR EACH LINE AND PRINTED’,/, 

2’ ABOVE THE HELICOPTER CALIBRATION DATA ’,/) 

WRITE( 6 , JO) 

10 FORMAT! ’O’ , 14X, ’HELICOPTER ALTITUDE CALCULATION’ ,/, 

2 I8X, ’ USING HUMPHREYS FORMULA’,//, 

3’ ALT =LOALT+( 18. 4(L0G( LOP/P) )( 1+ 0G367( L0T+T)/2) * , /, 

4’ ( 1+ 378( ( LOE/LOP+E/P) /2) ) I 0O1958( l+2( LOAI.D /6371) ’ ,//, 

4’ ALT* ALT I TUDE DIFFERENCE BETWEEN THE POINT AND THE STARTING’,/, 

5’ MARKER C KM) ’ ,/, 

6’ LOALT= PREVIOUSLY CALCULATED AITFIUDE DIFFERENCE (KM)’,/, 

7’ L0P= PRESSURE AT PREVIOUS ALTITUDE (MBAR)’,/, 

7’ P= PRESSURE (MBAR)’,/, 

8’ LGT= TEMPERATURE AT PREVIOUS ALTITUDE (DEG C)’,/, 

9’ T= TEMPERATURE (DEG C)’,/, 

I’ LOE= WATER VAPOR PRESSURE AT PREVIOUS ALTITUDE (MBAR)’,/, 

1’ E= WATER VAPOR PRESSURE (MBAR)’,/, 

4’ I /HEN THE END OF THE LINE IS REACHED, THE DIFFERENCE BET-’,/, 

6’ WEEN THE CALCULATED FNDP01NT ELEVATION AND ITS KNOWN ELE-’,/, 

5’ VAT I ON IS PRORATED ALONC THE LINE THIS IS THE SAME AS IF’,/, 

7’ THE CONSTANT 18 4 WERE MULTIPLIED BY A FACTOR HC ( SHOWN ’,/, 

7’ BELOW). AS A HEASURL OF THE CORRECTION APPLIED HC IS ’,/, 

8’ PRINT LD AT THE END OF THF REDUCED HELICOPTER DA1A ’,/, 

3 ’ HC= DELTAE/MALT’ , / , 

6’ I)ELTAE= KNOWN ELEVATION DIFFERENCE BETWEEN MARKERS’,/, 

7’ MAL T= CALCULA 1 El) ENDPOINT ELEVATION DIFFERENCE’ ,/, 

I* THE ALTITUDES PRINTED OUT IN THE UNCONNECTED HELICOPTER’,/, 

2’ DATA ARE READ FROM THE HELICOPTER ALT1MLILR. THOSE IN THE’,/, 

3’ REDUCED DATA SECTION ARE THE ADDITION 01- THE STARTING BENCH-’,/, 
4’ MARK ELEVATION AND THE ALTITUDE DIFFERENCE FROM THAT MARKER ’ ,/) 
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WRITE! 6 ,6) 

6 FORMATS ’0’ . 14X, ’COMPUTATION OF REFRACTIVE NUMBER’ ,//, 

2’ N= ( 300 2(P)-41.8(E))/(3 709(T))’,//, 

3’ N=REFRACTIVE NUMBER=( REFRACTIVE INDEX-1) 10**6’ ,/, 

4* I’= PRESSURE (MBAR)’,/, 

5’ E= WATER VAPOR PRESSURE ( MBAR) ’ , A 
6’ T= DRY TEMPERATURE ( I)LG K) ’ ,/) 

WRITE! 6, 1 1) 

11 FORMAT! ’0’ , 17X, ’LASER FREQUENCY CORRECTION’ ,//, 

2’ D= DM! 14904980) /F’ ,//, 

3’ D= FREQUENCY CORRECrED DISTANCE <M)’,/, 

4' DM= MEASURED DISTANCE (M) ’ 

5’ F= FREQUENCY MEASURED !IIZ) NOTE IN THE UNCORRECTED RANGE’,/, 

6’ DATA HIE FREQUENCY DIFFERENCE IS LISTED THIS IS TIIE’,/, 

7’ MEASURED FREQUENCY MINUS 'IRE FREQUENCY ASSUMED BY THE ’,/, 

O' INSTRUMENT ! 149 049 BO HZ) IF THE FREQUENCY IS NOT MEASURED’,/, 

4' DIRECILY, THE FREQUENCY DIFFERENCE MAY BE CALCULATED FROM’,/, 
5’ AN EMPIRICAL RELATIONSHIP INVOLVING 'HIE BATTERY VOLTACE AND’,/ 
6’ THE RESISTANCE OF A THERMISTOR ON THE OSCILLATOR’,/, 

2’ FD=2 7IBV-12 5)-04 3+12 731RTID- 434524! R1H) ! RIII) ’ , /, 

4’ = FREQUENCY DIFFERENCE ! HZ) ’ ,/, 

6 ’ BV=B AT TERY VOL TACE ’ , / , 

6 ’ RTJI= TIIERMIS TOR RES IS TANCE ( KOHM) ’ , /) 

WRITE! 6, 13) 

13 FORMAT! ’0’ , 20X, ’ LINEARITY CORRECTION’ ,//, 

2’ THE CORRECTION FOR THE INSTRUMENTS LINEARITY IN TOE ’ ,/, 

3’ RANCE OF DISTANCES OBSERVED IS PRINTED ABOVE THE UNCOR-’,/, 

, 4’ RtCTED RANGE DATA. THE CORRECTIONS WERE DETERMINED EMPIR-’,/, 

5’ ICALLY OVER A 10 METER BASE LINE’,/) 

WRITE! 6, 12) 

12 FORMAT! ’0’ ,7X, ’DISTANCE REDUCTION TO THE BENCHMARK ELEVATIONS’,//, 
2’ D=SQRT!!DIO!DF)-DD) ’ ,//, 

3’ D= HEIGHT CORRECTFD DISTANCE IN A SPHERICAL SYSTEM !M)’,/, 

4’ DF= FREQUENCY CORRECTED DISTANCE ! M) ’ , / , 

5’ DD=2( 1-COS! ARCTAN! DF/R) )) ! R+LOEL) ! RH+ III) +2! HIEL-LOEL) ’ ,/, 

5 ’ ! RH- III! COS! ARCTAN! DF/11) )))’,/, 

7’ R= EARTH RADIUS €371 KM’,/, 

0’ LOEL= ELF VAT I ON OF THE LOW MARKER ! KM) 1 , / , 

0’ RH= HEIGHT OF LASER OR REFLECTOR ABOVE TOE LOWER MARKER (MM)’,/, 
O’ IH= HEIGHT OF LASER OR REFLECTOR ABOVE THE UPPER MARKER (MM)’,/, 
1» H I EL= ELEVATION OF TOE UPPER MARKER (KM)’,/) 

WRITE! 6, 15) 

15 FORMAT!’ O’, ’ ALL OF THE ABOVE CORRECTIONS ARF APPLIED TO I HE*,/, 
2’ DISTANCE MEASUREMENTS AND THE RESULTING VALUES ARE LISTED IN’,/, 
3’ THE “FREQUENCY CORRECTFD" COLUMN OF THE REDUCED RANGE DATA ’ ,/, 
4’ THE “RIDUCED RANCE" COLUMN IS THE RESULT OF APPLYING THE ’,/, 

5* ATMOSPHERIC CORRECTIONS DESCRIBED BELOW TO THE FREQUENCY’,/, 

7’ CORRECTED VALUE ’,/) 

WRITE! 6, 16) 

16 FORMAT! ’0’ , I6X, ’REFRACTIVE INDEX CORRECTION’,//, 

2’ THE MEAN REFRACTIVE NUMBER FOR 1 HE LINE IS CALCULATED’,/, 

3’ BY NUMERICAL INTEGRATION (TRAPEZOIDAL RULE) OF THE REFRAG- ’ , / , 

3’ TIVE NUMBER VS ALTITUDE CURVE TOIS VALUE IS WRITTEN AT THE’,/, 
6’ END OF TIIE CORRECTED RANGE DATA ALONG WITH THE MEAN LINE’,/, 

6’ LENGTH (MARKER TO MARKER) FOR THE SET OF MFASUREMEN IS, THE’,/, 

7’ STANDARD DEVIATION, AND STANDARD DEVIATION OF THE MEAN ’,/, 

0’ D=FIU III ) /( ( RN X 10*C-6) + l) ’ ,/, 

9’ = DISTANCE CORRECTED FOR REFRACTIVE INDEX’,/, 

1’ F’R= FREQUENCY AND GEOMETRICALLY CORRECTED DISTANCE ’ ,/, 

1* RI= REFRACTIVE INDEX ASSUMED BY THE INSTRUMENT (1 000309B4) ’ , /, 

3’ RN=TIIE MEAN REFRACTIVE NUMBER ’ ,/) 

WRITE! 6 , 17) 

17 FORMAT! ’0’ , 17X, ’BEAM CURVATURE CORRECTION’ ,//, 

2 ’ Dl)=-K( I-K) D *- i 3/( 24! R) ( R) ) ’ , // , 
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3’ DD= BEAM CURVATURE CORRECTION ASSUMING A LINEAR CHANGE IN’,/, 

4’ REI‘UACTIVE NUMBFR FROM MARKER 10 MARKER ’ ,/, 

5’ D= DISTANCE CORRECTED I' OR REFRACTIVE INDEX’ 

5’ K=(R) ( 10-fc E-6) ( L LON-HIND /( [HI EL-I OELD ’ ,/, 

7 * 11= EARTH RAD I US 6 37 J KM’ ,/, 

8’ LON= REFRACTIVE NUMRFR AT THE LOWER MARKER’ ,/, 

9* 1IIN= REFRACT IVE NUMBER AT HIE UPPER MARKER’ ,/, 

1’ HIEL= UPPER MARKER FI EVA! ION (KM)’,/, 

L’ LOEL= LOWER MARKER ELEVATION (IC'D’,/) 

READS AND WRITES HEADER 

999 NT11'LE=2 
K= 0 

DO 720 1=1,6 
?20 ALT ( I ) = 0 

BUFFER IN (25, IBUFF.S, 18, IS) 

DECODE (54,710, IBUFF) ( H< l ) , 1= 1 , 54) 

710 FORMAT! 54 A I) 

DO 701 1=3,54 

IF(H( I) EO BLANK AND H( 1-1) EO BLANK AND. IK 1-2) .EQ. BLANK) 

2G0 TO 711 
701 NTITI E=NTITLE+ 1 

711 NTI ILE=NTITLE-2 
NUM=0 

DECODE (54,712, IBUFF) ( IK I) , 1= 1, 18) 

? 12 FORMAT( 18A3) 

IF(IKl) EQ I’AU) CO TO 200 

CHECKS DATA ID AND BRANCHES TO THE APPROPRIATE SECTION 

111 R£AD( 25 ,115, END=200) IDD 
1D= IDD 

115 FORMAT ( A2) 

112 IF( ID EO BR) CO TO 120 
IF( ID EQ BA) GO TO 122 
IF( ID EQ RE) CO TO 123 
IF( ID EQ HOCO TO 124 
IF( ID EQ IIA) CO TO 126 
IF( ID EQ IR) CO TO 111 
IK ID EQ COCO TO 999 

READS 8 WRITES RANGE DATA HEADER 

120 REAIH25, 130) ( LOC( I ) , 1= 1 , 4) , 1 II, IFL, LIN , ECC, ( 0B( J) , J= 1 , 8) 

130 FORMAT! I OX, 4 A3, IX, F4 0 , IX, A3 , IX, F3 0 , IX, 12 , IX, 8A3) 

DUM= I II 
111= IH+240 
NUM=NUMH 

WRITE(6, 101) (IK I) , 1= l, 18) ,NUM 
101 1- ORMAT( ’ 1’ , 18 A3 , 13X, ’PACE*’ , 12) 

WRI TE( 6 , 135) (LOO I) , 1= 1 ,4) , DUM, III,FCC, IFL, LIN, ( 0B( J) ,J= 1,8) 

135 F0RMAT( ’O’, ’RANGE DATA TAKEN AT ’ ,4A3,/, 

2 ’ HEIGHT TO THE T 

30P Of THE IRIBRACH ’,F5 0,’MM’ ,/,’ TOTAL LASER HE I CIIT ABOVE 
4 ’THE MARKER. ’ , 

4F5 0,’MM’,/, * ECCENTRIC IT V ’ , 12, ’MM’ ,/, ’ DAVL I Oil T F I LTER ’,A3,/, 
5’ A 137 MM OFFSFT HAS BEEN DIALED INIO THE INSTRUMENT’,/, 

6’ LINEAR1TV CORIUCTION ’ , F4 0,’MM’,/, 

8 ’ OBSERVERS ’,8A3) 

II- ( ALT1 LT ALT2) CO TO 50 

1= III 
IH=CII 
CII= I 
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G 

C ECCENTRICITY, LINEARITY, AND REFLECTOR OFFSET CORRECTION 
C 

50 CORR= ECC+ ECD- 40+ L I N 

CALL WANGE! ID, ALT, REF, K, IH, C1I, CORR, LOC) 

GO TO 112 

122 NUN= NUM+ 1 

WRITE! 6 , 101) (IK I) , 1=1, 18) , NUM 
C 

C READS 8 WRITES RASE STATION ATMOSPHERIC HEADER 
C 

READ(25, 189) DA( 1) , M0( 1 ) , YR( 1) , (LOC( I) , 1= 1 ,4) , ELE( 1) , PSY, BAR, BARC , 
1 (OIK J) , J=1 ,5) 

139 FORMAT! 3X, 3 12, 1X.4A3, IX, F6 2,2( IX, ID , 1X.F4 2, 1X.5A3) 

WRITF( 6 , 140) ( LOC( I) , 1= 1,4) , ELE( 1 ), PSY, BAH, BARC ,( 0B( J) , J= 1,5) 

140 FORMAT( 'O’, ’ATMOSPHERIC DATA TAKEN AT ’ ,4A3,/, ’ ELEVATION: ’, 

2F? 2 , ’ M* , / , ’ PSYCIIR0ME1 ER # ' , 1 1 , 3X, ’ BAROME TER ,11,/, 

3’ BAROME PER CORRECTION ’ ,F5 2, ’ MBAR’ ’ OBSERVERS ’,5A3) 

FLE( 1 ) =ELF( 1)* 001 
ALT1 = EIE( 1) 

DO 143 1=1,2 
DO 143 J= 1 , 2 
\ T ( I, J) = P( I , J , PSY) 

143 CONTINUE 

CALL AT MOS( ID , BARC , Y, PR1 , TE I , HU l , A5 , LOC) 

K=K+ 1 

C 

C ARRANGLS GROUND DA l A IN DESCENDING ORDER 
C 

PRE(6)=PR1 
TEMC6) =TE1 
HUM(6)=nUl 
A1T(6)=ELE( 1) 

RFF( 6) = A5 
DO 146 .1=1,5 
11=6-3 

DO 146 1=1,11 
L=IH 

IF(ALT(1) OE ALT( L) ) GO TO 146 
F L= AL 1 ( I) 

AI T( Il=AlT( L) 

ALT(1 )=EI 
AL= REF ( I) 

RE1 ( I) =REF( L) 

REF ( L) =AL 
EL=PRE( I) 

PR£( I ) =PRE( L) 

PR1C( I) =EL 
El =1LM( I ) 

TCMt I ) = 1 EM( L) 

1 LM( L)=EL 
El =HUM( I) 

I1UH( I) = HUrl(L) 

I1UM( I ) = El 
146 C0N1INUE 

ElE! £ ) = AI 1! 1) 

F I F(2) = AI 1(2) 

GO TO 112 
C 

C READS AND WRITES REFLECTOR HEADER 
C 

123 READ! 25, 145) DA! 1) ,M0( 1) ,YR( 1) ,(LOC(J) , J= 1,4) ,ELE(2) , RH , CORR, 

2C0NF IG, ECD, PSY, BAR, BARC, (OB! I) , 1=1,8) 

145 FORMAT! 3X, 3 12, IX.4A3, IX, F6 2, IX.F4 0, IX,F3 0, IX, 2! 12, IX) , 2! II , IX) , 
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2F4 2,1X,0A3) 

CH=RH+CORR 

NUM=NUM+1 

WRI rE(6, 101) (H( I) , I- l, 10) , NUM 

WRITE! 6, 150) (LOG(J) , J=l,4) , ELEC 2) ,RH,CORR,CH, 

2C0NF IG, EGO, PSY, BAR, BARG, (OB! 1) , 1=1,0) 

150 FORMAT! ’0’ , ’REFLECTOR A1M0SPHERIC DATA TAKEN AT ’,4A3, 

2 /, ’ ELEVATION ’ , F7 2, 

3 'IV,/,' HEIGHT TO 'HIE TOP OF THE TRIBRACH. ’ , F5 

4/,’ HEIGHT FROM THE TOP OI 1IIE TRIBRACH’ , /, ’ TO THE CENTER OF TH 
5E REFLECTORS ’,F4 0,’MM’,/,’ TOTAL REFLECTOR HE 1 CUT ABOVE THE MAR 
6KER ’ , F5 0,’MM’, 

6/,’ NUMBER OF REFLECTORS ’,12,/,’ ECCEN'TRIC I TY ’,12, 

7’ MM’ , /, ’ PSYCHRONETER *’ , 1 1 , 3X. ’ BAROMETER *’ , 1 1 ,/, ’ BAROMETER COR 
0RECT10N ’ ,F5 2, ’ MBAR’ ,/, ’ OBSERVERS ’,0A3) 

ELE! 2) = ELE( 2)4 001 
4LT2=ELE!2) 

DO 152 1=1,2 
DO 152 J= 1 , 2 
Y! T, J) =PC I , J, PSY) 

152 CONTINUE 

CAIL ATMOS! ID, BARC , Y, PR1 , TE1 , HUl , A5 , LOC) 

K=K+1 


ARRANGES GROUND DATA IN DESCENDING ORDER 

PRE(6)=PR1 
TEM! 6) =TF1 
IlUM!6)=nUl 
AIT! 6) =ELE! 2) 

REF! 6 ) = A5 
DO 147 J= 1 , 5 
J I=6-J 

DO 147 1=1, J1 
L= 1+1 

IF! ALT! I ) GE ALTIL)) GO TO 147 
EL=ALT! I) 

ALT! I ) = ALT! L) 

ALT! L)=EL 
AL=REF! I) 

REF! I) =REF! L) 

REF! L) = AL 
EL=PREC I) 

PRE! I ) =PRE! L) 

PRE! L) =EL 
EL=TEM! I) 

TEM! I) = TEN! L) 

TEM! L)=FL 
El = HUM! I) 

HUM! I) =HUMC I ) 

HUM! L) =EL 
147 CONTINUE 

ELE! 1 ) = Al T! 1 ) 

ELE! 2) = ALT! 2) 

CO TO I 12 

124 CALL CALIBIU ID, P , CALIB, A, R, C, R25, D, E, F, G,T, S) 

GO TO 112 

READS & WRITES HEL I COPTER LINE HEADER 

126 READ! 25, 165) DA! 1) ,MI)C 1) , YR! t) , CLOC! I) , 1=1,4) , ! OBC I) , 1=1,4) 
NUM= NUM+ 1 

WRI TEC 6 , 101) UK I) , 1= 1 , 10) , NUM 
WR1 TEC 6 , 170) CIOC! I) , 1= 1 ,4) 
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165 FORMAT! 3X, 3 12, 1X.4A3, IX.4A3) 

170 FORMAT! ’O’, ’ HELICOPTER LINE DATA. FLYING FROM ’ ,4A3) 

CALL IT ATM( ID,CALIB,A,B,C,n25,D,E,F,G,T,S,a,R,ELE,PRE,TEM,HUM, 
2ALT, REF , K, LOC , OB) 

GO 10 112 

200 CALI PLOI (0 ,6., 999) 

S10P 

END 

C 

C SUBROUTINE WANGE USES THE PREVIOUSLY CALCULATED REDUCED 

C REFRACTIVE INDICES AND ALTITUDES 10 CORRECT 'HIE DISTANCE MEASURE- 
C MENTS FOR THE ATMOSPHERIC CONDITIONS IT ALSO MAKES ALL NECESSARY 
C ADJUSTMENTS TO REDUCE THE LINE LENGTH TO A MARKER- TO-MARKER DISTANCE. 

C 

C PARAMETER LIST 

C ID SECTION IDENTIFICATION (BR) 

C ALT ARRAY CONTAINING TIIE ALTITUDES ALONG THE LINE 

C REF ARRAY CONTAINING THE REDUCED REFRACTIVE INDICES WHICH 
C CORRESPOND TO THE ALTITUDES 

C L NUMBER OF POINTS ALONG 11IE LIRE 

C III HE I CUT OF THE LASER OR REFLECTOR ABOVE THE LOWER MARKER 

C CH HEIGHT OF THE LASER OR REFLECTOR ABOVE THE UPPER MARKER 

C CORR CORRECTION TERM WHICH INCLUDES TOE PRISM OFT SETS, COMBINED 

C MEASURED SETUP ERRORS, AND THE LASER LINEAR!'! Y CORRECTION 

0 LOC ARRAY CONTAINING TIIE LOCATION OP THE STATION 

C 

C****:i'******r*.* I .***#*? Y I **** YSX C*** * S******* 

SUBROUTINE WANGE! ID, ALT, REF , L, III, CU, CORR, LOC) 

COMMON /LASER/BR, BA , RE , 110 , HA , GO , IIR, MN , SEC , DEBUG , NUM, 

2DA.N0, YR,H2,NTITLE, IPLOT! 17) , IH.NMOI200) 

INTEGER TTL! 18) ,T1’Y!6) ,TTA!5) ,L0C!4) 

INTEGER DA! 200) , MO! 200) ,111(200) ,112(80) 

INTEGER BR, BA, RE, IIC, HA, GO, DEBUC, STAR 
INTEGER HR! 200) ,HN(200) , SEC! 200) ,11(9,200) .MARK! 200) 

DIMENSION RANCE! 200) .BANC! 200) 

DOUBLE PRECISION RANCE, BANC, DIST, DIS12, AVG 
REAL ALT! 200) , REF! 200) 

REAL BATV! 200) .RTIK200) , FREO! 200) , IU 
DATA III/’ ’ / , STAR/ * is • / 

DATA TTY/’UNC’ , ’ORR’ , ’FCT’ , ’ED ’ , ’ RAN ’ , 1 GE ’/ 

DATA 1TA/ ’ M +’ , ’ CR’ , ’ APR’ , ’ VA’ , ’ LUE’ / 

DO 971 1=1, 18 
971 TTL(I)= III 
N 1= 1 
1) 1ST=0 
K=0 
N=8 

WRITE! 6 , 10) 

10 FORMAT! ’ 0 ’ , ' UNCORRECTED RANGE DATA’ , // , 2X, » TIME’ , 5X, 

2’ RANCE FREO BATTERY THERM COMMEN'IS’ 

A ’ HR MN SEC (METERS)’, 

3 ’ DIFF VOLTAGE ( KOHM) ’ , /) 

C 

C READS DATA 
C 

30 READ(25, 15) ID, MUNI) ,MN(N1) , SEC(Nl) , RANGE! Nl) , FREQ! N 1 >, BATV! N 1 ) , 
2RTIKN1) , MARK! N I ) , ( II! I , Nl) , 1= 1 , 9) 

FORMAT! A2, 1X.3I2, IX, T9 3.1X.F4 1.1X.F5 3.1X.F5 3.A1.9A3) 

IF! ID NE BR) GO 10 35 
N= N+ 1 

IF! N 1 EG 47) CO TO 21 
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IF!N NE 55) GO TO 31 
21 NUM= NUM+ 1 

WRITE* 6,5)! II2( I) , 1=1, 18) , NUM 
5 FORMAT! ’ 1 ’ , 18A3, 13X, ’ PAGE* ’ , 12) 

N=0 

WRITE! 6, 10) 

C 

G FINDS FREQUENCY DIFFERENCE 
G 

31 FREQ! N1)=FREQ!N1) “980 

IF! FREQIN1) EQ 0 ) FREQ! Nl) =FREQCN1) + 0001 
IF ! FREQ! NI) EQ -980 )FREQ!N1)=0. 

C 

C WRITES UNCORRECTED DATA 
C 

WRITE! 6 , 20) HR! N 1 ) , MN( N 1) , SEC! NI) , RANGE! Nl ) , FREQ! N 1 ) ,BATV!N1) , 
2RTHIN1) , MARK! K 1 ) , !II! I,N1) , 1=1,9) 

20 F0RMAr(3( IX, 12) ,2X,F10 3,2X,F5 1.2X.F6 3,2X,F6 3,A1,IX,9A3) 
N1=N1+ 1 
GO TO 30 

35 N 1 =N 1- 1 
G 

C INTERPOLATES DATA 
G 

CALL INTERP! N 1 ) 

IF! IPI OT! 1 ) NE. 1) GO TO 40 

rSCA= 3600-t.lIR! N 1 ) +60*MN! N 1 ) -3600-fcHR! 1 ) -60*MN! 1) 

IF! TSCA LT 0) TSCA=TSCA+8640O 
TSCA= 19685/! AINT! TSCA/60) ) 

GALL MPI.0TIN1 ,RTII, RANGE, TTL, 1 ,TTY, 17,TTA, 15, TSCA, 78 74,1, 

3 MARK, 3, LOG, ITL, 3) 

GALL PLOT! 0. ,0 ,5) 

40 IF! DEBUG. EQ 999) GO TO 509 
CALL NTERP2 C FREQ, N 1 ) 

CALL NTERP2! BATV,N1) 

CALL NTFRP2! RTII, N 1 ) 

IF! N LE 44) CO TO 36 

NUM=NUM+ 1 
N=-6 

WRITE! 6, 5) ! 112! I) ,1=1, 18),NUM 

36 WRITE! 6, 60) 

N=N+6 

DO 50 1=1, Nl 
C 

G CHECKES FOR DATA TO BE USED 
G 

IF ! MARK! I) EQ STAR) DEBUG=99 
IF ! DEBUG NE 99) GO TO 50 
IF! RANGE! I) EQ 0 ) CO TO 50 
D I ST= D I ST+ RANGE! 1) 

K=K+1 

YR! K) =YR! I) 

NO! K) =FIO! I) 

DA! K) =I)A! I) 

Hll! K)=IIR( I) 

MN ! K) = MN ! I) 

SEC! K) =SEC! I) 

DO 62 J= 1 ,7 
62 H! J,K)=HCJ, I) 

IF! FREQ! I) NE 0.) GO TO 66 
IFIRril! I) EQ 0 ) GO TO 66 
C 

C COMPUTES FIR QUENOY FROM VOLTAGE AND RTH IF NO FREQUENCY MEASUREMENTS 
G WERE TAKEN 
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G 

FREQ! I)=2.7*!BATV! I)-I2 5) + 12.73*RTHC I)- 4345244RTH! I) **2-84 3 
66 CONTINUE 
C 

C FREQUENCY CORRECTION 

C 

RANGE! K)= RANGE! I >*14984980./! FREQ! D + 14984980. ) 

IF (MARK(I).EQ STAR AND.K GT I) DEBUG=0 
MARK! K) =0 
50 CONTINUE 

D I ST= D I ST/K4 .001 
C 

C INSTRUMENT HEIGHT CALCULATION 
C 

ELD= ABS! ALT! 1 ) -ALT! L) ) 

XMIN= AMIN1 ! ALT! 1 ) , ALT! L) ) 

COSTH=DCOS! DATAN! DIST/! 6371 . +XMIN) ) ) 

DD2= < 1 -COSTII) <*2 4!6371.+XMIN)4(CJI+IH)+2.4ELD4 
2 ! GTI- IH4C0STJI) 

C 

C NUMERICAL INTEGRATION OF REFRACTIVE # VS ALTITUDE 
C 

AVG=0 

IF! L GT 1) GO TO 114 
AVG=REF! 1) 

GO TO 116 

114 DO 115 1=2, L 

1 15 AVG=AVG+! REF! Il+REF! I-l))*! ALT! D-ALT! I-l) )/2. 

1 F! AVG NE 0 ) GO TO 110 

DO 119 1=1, L 
119 AVG=AVC+REF! I) 

AVG=AVG/L 
GO TO 116 

1 1 8 AVG= DABS! AVG/! ALT! 1 ) -ALT! L) ) ) 

60 FORMAT! * 0 REDUCED RANGE DATA IN METERS * , // , 2X, ’ TIME’,4X, 

2’ FREQUENCY REDUCED COMMENTS’,/-, 

3’ HR MN SEC CORRECTFD RANGE ’,/) 

116 DIST=0 

VAI = ID INT! RANGE! 1) ) 

DD=0 

DIST1=(> 

DIST 2=0 
DO 80 1=1 ,K 
C 

C INSTRUMENT HEIGHT CORRECTION 
C 

RANGE! I ) = DSQRT! RANGF! I)*12-D1)2)+00RRy 001 
G 

C REFRACTIVE INDEX CORRECTION 
C 

BANG! I ) = RANGE! 1)41 00030904/! AVG*1 . E-6+ 1 ) 

II !L EQ I) GO TO 1 17 
C 

C BEAM CURVATURE CORRECTION 
C 

IF ! Al T! L) EQ ALT! 1 ) ) GO TO 117 

])!)= ! REF! 1 ) -REF! L) ) T; 006371/! ALT! L) -ALT! 1 ) ) 

BANG! I)=BANG! I)-DDY(2 -DID 4! BANG! I) * 001) 4*3 MO00 /124.46371 *42) 

117 DIST=DIST+BANG! I)-VAL 
DIST1=DIS1 1+RANCE! I ) -VAL 
DIST2=DISI2+! BANG! I)-VAD* 12 
N= N+I 

IF ! N LT 55) GO 10 61 
N-0 
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mm=NUM+i 

WRITE(6,5)(II2( J) ,J=1, 10) ,NUM 
WRI TE(6,60) 

G 

G WRITES CORRECTED DATA 
C 

64 WRITE! 6 , 65) IIRC I) ,MN( I) ,SEC( I) , RANGE! 1) , BANG! I ) . ( IK J , I ) , J= 1 , 9) 

65 FORMAT! 3! IX, 12) ,2X,t 10.3, 2X, F10.3 ,2X, DAO) 

BO CONTINUE 

D I ST2= DSGR T! ( D I ST2- D I ST* 1=2/K) /FLO A T! K- 1 ) ) 

DIST=DIS T/K+VAL 

DIST1=DIST1/K+VAL 

D 1 SI 3= D IST2/SQRT! FLOAT! K) ) 

I F! N LE 49) GO TO 05 
NUM=NUW+1 

WRITE! 6, 5) ( 112! J) , J= I, 10) , NUN 
05 WRITE! 6 , 90) D 1ST l , 1) IS T, DIST2 , DIST3 , AVG 
90 I 1 ORMAT! ’ 0 ’ , ’ MEAN LINE LENGTH WITHOUT ATMOSPHERIC CORRECTIONS= ’, 

2F1© 3,’ METERS’, /, 

2’ MEAN CORRECTED I INC I ENG TH= ’,F10 3,’ METERS’,/, 

2’ STANDARD DEVIATION** ’ , T5 4,’ METERS’,/, 

3’ STANDARD DEVIATION OF THE MEAN= ’,1-5 4,’ METERS’,/, 

4’ MEAN REFRACIIVE NUMBER* ’.F6.2) 

IF! IPLOT! 17) NE I) CO TO 509 

TSCA=36G0 f-HR! K) +60'' I1N! K) -3600 fHR! 1)-60*MN( 1) 

IF! TSCA I T 0) TSCA= ISCA+86400 
TSCA= 19605/! A IN I ! TSCA/ 60) ) 

CALI MPLOT! K, Rl II, RANCE, TTL, I , ITT, 17, TTA, 15 , TSCA, 70 74,1, 

3 MARK, 3. LOC, TTL, 2) 

CALL SYMBOL !I 0,1 0,0 2, ’CORRECT DIST ’,0 ,13) 

DIST=DIST/1 OD 01 
ID1= ID I NT! DIST) 

Dl= IDI 

D2=SNGL( ! D IS I-DDLE! DI ) ) * I OD 01) 

CALL NUMBER !3 2,1 0,0 2,1)1,0.,-1> 

CALL WHERE! XD IS J, YD IS I, SIZE) 

XDISJ 1 = XDISJ+! 1 /7 ) -I 0 2 

CAIL NUMBER tXDISIl.I 0,0 2, 1)2,0., 3) 

CALI SYMBOL !4 0,1 0,0 2,212,0 ,-l) 

CALL SYMBOL !5 0,1 0,0 2,70,0 ,-l) 

CALL SYMBOL !5 0,0 09,0 2,96,0 ,-l) 

CAIL NUMBER !5 2,1 0,0 2,DIST3,0 ,3) 

CAIL SYMBOL ! 6 1,1 0,0 2, ’SO M* ,0 ,4) 

CAIL SYMBOL! 4 0,0 5,0 2,77,0 ,-l) 

CALI SYMBOI ! 5 0,0 5,0 2,70,0 ,-l) 

CALL SYMBOL !5 0,0 39,0 2,96,0 ,-l) 

CALL NUMBLR !5 2,0 5,0 2,DIST2,0 ,3) 

CALL SYMBOL !6 1,0 5,0 2,’SD Y)’,0 ,5) 

CALL PLOTIO ,0 ,5) 

509 RETURN 
END 

C***** S** f" P C* i:* F F Tic* f** C T " K** FT*** S >-****** T i F**********'-'**:! ********** >-** 
C 

C SUBROUTINE ATMOS PRINTS ALL UNREDUCED GROUND ATMOSPHERIC DATA, 

C CORRECTS IT FOR PSYC1IR0MLT Ell AND BAROMETER OFFSETS AND REDUCES IT 
C TO REDUCED REFRACTIVE INDICES THF MEAN PRESSURE, TEMPERATURE, 

C WATER VAPOR PRLSSURE, AND REDUCED REFRACTIVE INDEX ARE RETURNED 
C 

C PARAMETER LIST 

C ID SECTION IDENTIFICATION (BA OR RE) 

C BAIIC BAROMETER CORRECTION ( MBAR) 

C Y PSYCIIROMET ER CORRECTIONS (2X2 ARRAY CONTAINING TUI’ SLOPE 
G AND INTERCEPTS 1’OR EACH THliRMOME 1 ER) 
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G PRE MEAN PRESSURE FOR 'HIE STATJON ( RETURNER) 

G TEM MEAN TEFIP ERATUIIE FOR TIIE STATION (RETURNED) 

C HUM MEAN WATER VAPOR PRESSURE FOR THE STATION (RETURNED) 

C A5 MEAN REDUCED REFRACTIVE INDEX FOR THE STATION (RETURNED) 

C LOC ARRAY CONTAINING THE LOCATION OF THE STATION 

G 

C****^***.*,!.*****,):*-):*.) i-**********.)' f* sc*#.*- r*** r**«.*f*** K-i.** t* );***.fr ****** 

SUBROUTINE ATMOS( ID.BAllG, Y,PRE,TEM, HUM,A5,LOG) 

COMMON /LASER/BR, BA, RE , HC , HA, GO , HR, MN , SEC , DEBUG, NUM, 

2DA, MO, YR, 112 , NTl'lLE, IPLOT( 17) , IR,NMO(2O0> 

INTEGER DA( 200) , M0( 200) , YR( 200) , H2( BO) ,T1C(7) ,10G(4) 

INTEGER TTL< 18) ,TTH(5) ,TTC(6> ,TTF(7) ,TT’A(5) , TTB(5> ,TTD(5) ,TT£(6) 
REAL TWET( 200) ,TDRY(200) ,PRESS(200) ,REf(200) ,Y(2,2) 

I NTEGER BR , B A , RE , HC , H A , GO , DEB UG , STAR 

INTEGER n(9, 200) ,IIR(200) ,MN(20Q) ,SEC(200) ,MARK(20G) 

DATA III/' ’/,RE/’RE’/,STAR/’ S’/ 

DATA TTH/’ + ’.’CRA’.’PH * , ’ VAL’ , ’ UE’ / 

DATA TTG/’MB ’,’ + G’ , ’ RAP ’ , ’ H V’ , ’ ALU’ , ’ E V 


DATA 

TTF/’DEG’ , 

’ C* 

’ + ’ 

, ’GRA’ , ’Pn ’ , ’VAL’ , ’UE 

DATA 

TV A/ ’ WET 1 , 

’ TE’ 

*MPE’ 

, ’RAT’ , ’URE’/ 

DATA 

TTB/’DRY’ , 

, TE , 

’ MPE ’ 

, ’RAT’ , ’URE’/ 

DATA 

TTD/’VAP’ , 

’OR ’ 

•PRE’ 

, ’SSU’ , ’RE ’/ 

DATA 

TTE/’UEF’ , 

’RAC’ 

•TIV’ 

, ’E N’ , ’UHB’ , ’Elt ’/ 

DATA 

TTC/’BAR’ , 

’ONE’ 

’ T RI * 

, ’C P* , ’RES’ , ’SUR’ , ’E 


DO 971 1=1,18 
971 TTL(I)=III 
Nl= 1 
K=0 
A5=0 
TEM= 0 
PRE=0 
IIUM=0 
N=6 

IF( ID Eft RE) N= 12 
WRITEt 6, 10) 

10 F0RMAT( ’O’ , ’UNCORRECTED DATA’ ,//, 

13X, TIME VET DRY BAROMETRIC COMMENrS’,/, 

2’ HIl FIN SEC TEMP TEMP PRES (MB) ’ ,/) 

READS & WRITES UN CORRECTED DATA 

30 R£AD( 25 , 15) IP.IHKN1) ,MN(NI) ,SEC(N1) , TWET ( N 1 ) , TDRY( N 1 ) ,PRESS(N1) , 
2MARK(N1) , (H( I,N1) , 1=1,9) 

15 FORMAT! A2, IX, 312, 1X,2(F3 1 , IX) , F6 2 , A1 , 9A3) 

IF( IP NE. ID) GO TO 35 
N = N+ 1 

I F( N LT 56) GO TO 31 
NUM=NUM+ I 

WRITE (6,40) (II2( I) , 1=1, 10) ,NUM 
40 FORMAT! ’ 1’ , I0A3, I3X, ’ PAGE-f ’ , 12) 

WRITE( 6 , 10) 

N=0 

31 WR I TE( 6,20) HIK N I ) ,MN(Nl) ,SEG(NI) .TWLT(NI) , TDRY( Nl) .PRESS(NI) , 
2MARK( N I ) , ( IK I , Nl ) , T=U , 9) 

20 F0RMAT<3( IX, 12) ,2X,2(F4 1 , 3X) , F7 2, A1 ,3X,9A3) 

N1 = N1+ 1 
GO TO 30 
35 N 1 = N 1 - 1 

INTERPOLATES DATA 

CALL IN TFRP(NI) 

T'SCA=3C00'i HR! Nl) +60 i>MN( Nl ) -36O04IUU 1)-604MN( 1) 
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1FCTSCA LT 0) TSCA=TSGA+86400 
TSCA= . 19685/C AINTC TSCA/60) ) 

GALL N1 ERP2 ( TWET , N I ) 

GALL NTERP2( TORY, Nl) 

GALL NIERP2(PRESS,N1) 

IF(IPL0r(2) NE 1) CO TO 666 

CALL MPIOT(Nl,1WfcT,TlffiT,TTL, l.TTA, 15,TTF,2O,TSCA,0 7874, 1, 
3 MARK, 1, LOG, '1TI ,3) 

CALL PLOTC 0 ,0 ,5) 

666 I EC I PLOTC 3) NE 1) GO '10 667 

CALL HPL01CN1 ,TWET,TDRY,TTL, l.TTB, 15,TTF,20,TSCA,0 7874,1, 
3 MARK, 1 , LOG , 1TL, 3) 

CALL PLOTC 0 ,0 ,5) 

667 mlPL0l(4) NE l) CO TO 668 

CALL MPLOTC N 1 , TWET, PRESS, TTL, 1 , TTC, 19 , TTG, 16 ,TSGA, 3 937,1, 
3 MARK, 2,1 OG, TTI ,3) 

CALL PI0TC0..0 ,5) 

668 IF ( DEBUG. EQ 999) CO TO 85 
IFCN LF 44) CO TO 36 
NUM=NUN+1 

WlllfE (6,40) (1I2C 1) , 1=1, 18) ,NUM 
N=-6 

36 WRI1EC 6, 55) 

N=N+6 

DO 50 1=1, N1 

CHECKS FOR DArA 10 BE USED 

IF (NARK(I) Ett STAR) DEBUG=99 
II (DEBUG NE 99) GO TO 50 
K=K+1 

Y1U K) = Y1U I) 

MO(K) = MOC I) 

DA(K)=DA( I) 

HRC K) =RR( I) 

MN ( IO = MN ( I) 

SEC(K)=SECC I) 


THERMOMETER 8 BAROMETER CORRECTION 

TWETC I ) = Y( 1 , 1 ) +YC 2, l)-fcTWFT( I) 

TDRYC K) =Y( 1 ,2) +Y( 2,2)1 TDRYC I) 

FLM= TEM+ TDRY ( K) 

65 PRESSC K) = PRESS! I) +BARC 
PRE=PRE+PRESS(IO 

CALCULATES WAIER VAPOR PRESSURE E 

70 rWETCK) =269782 133* EXPC -4271 07 1252/C TWETC I) +242 625445) > 

2- 00066-SC 1 + 00115 RTWE HD) -KPRESSC K) *( TDRYC K) -1 WETC I ) ) 
IIUM=HUM+TWEr( K) 

CALCULATES REFRACTIVE NUMBER 

75 REFC K) = C 300 2+PRESSCK) -41 8*TWET( K) ) /( 3 7G9H TDRYC K) +273 15)) 
A5=A5+REF(K) 

N=N+ 1 

IFCN LT 56) GO 10 51 
NUM= NUM+ 1 

WRITE (6,40) ( H2C J) , J= 1 , 18) , NUM 
N=0 

WR1TE( 6,55) 

WRITES CORRECTED DATA AND MEANS 
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51 WHITE! 6 ,60) IHUK) ,MN!K) , SEC! K) ,TDRY!K) .PRESS! K) , TWET! K) , REF! K) , 

2 ! II! J , I) , J= 1 , 9) 

IF ! NARK! I)- EQ STAR AND K CT 1) DEBUG=0 
MARK! 10=0 
50 CONTINUE 

60 FORMAT! 3! IX, 12) ,2X,F4 1 , 3X, F7.2.3X, F5 . 2,2X,F5 l,2X,9A3) 
TSCA=3600*HR!K)+6O-i;MN!K)-3600snR! I)-604MN! 1) 

IFITSGA.LT 0) TSCA=TSCA+O6400 
TSGA= 19685/! A INT! TSCA/60) ) 

IF! IPLOT! 9) NE 1) GO TO 669 

CALL MPLOT! K, TWET, TDRY, TTL, 1 , TTR, 15 ,TTF , 20.TSGA, 0 7874,1', 

3 MARK, 1 ,L0C,T1L,2) 

GALL PLOT! 0 ,0 ,5) 

669 IF! IPLOT! 10) NE 1) GO TO 670 

GALL MPLOT! K, TWET, PRESS, TTL, 1,TTC, 19.TTC, I6,TSCA,3 937,1, 

3 MARK, 2, LOG, TIL, 4) 

CALL PLOT! 0 ,0 ,5) 

670 IF! IPLOT! 1 1) .NE 1) GO TO 671 

CALL MPLOT! K, TWET, TWET, TTL, I , TTD, 14 , TTG, 16 ,TSCA, 0 9685 , 1 , 

3 MARK, 2, LOC, TIL, 4) 

CAI I PLOT! 0 ,0 ,5) 

671 IF! IPLOT! 12) .NE I) GO TO 672 

GALL MPLOT! K.TDRY, REF, TTL, 1,TTE, 17, 'ITII, 14,1SCA,0 9685, 1, MARK, 

2 1, LOC, TIL, 1) 

GAIL PLOT (0 ,0 ,5) 

55 FORMAT! ‘O’, > REDUCED ATMOSPHERIC DATA’ , //, 

2’ TIME DRY BAROMETRIC E N COMMENTS’,/, 

3’ HR MN SEC TEMP PRES! MU)’,/) 

672 TEM=1FM/K 
PRE= PRE/K 
HUM= HUM/K 
A5= A5/K 

WRITE! 6, 80) TEM, PRE , HUM, A5 

80 F ORMAT! ’ 0 ’,’ MEANS 5X, F4 1 , 3X.F7.2, 3X,F5 2,2X,F5 1) 

85 ID= IP 

IFLAC=0 

RETURN 

END 

1 tf******** HAri S-r+f *:( H**A;A: Hi H H fH* i ***&&*'* A:a-**** 

subroutine calibr print's and reduces helicopter calibration data. 

PARAMETER LIST 
ID SECTION IDENTIFICATION IRC) 

P PSYCHROMF TER CORRECTIONS i2X2 ARRAY CONTAINING SLOPE 

AND INIERCEPT FOR BOTH THl RM!) METERS) 

GAHB,D,E,F CONSTANTS FOR CONVERTING HYCRISTOIl RESISTANCE TO WA TER 
VAPOR PRFSSU11E 

A, B , C , R25 CONSTANTS FOR COMPUTING T EMPERAT UUI FROM THERMISTOR 

RES ISTANCE 

C,T,S OONSTAN'TS FOR CALCULATING PRESSURE FROM TRANSDUCER 

FREQUENCY 
G 

C! HA-t HHHAA *1 H H HA" 1 t -H 1 !■!"!.# H H I H 1 * t ' I I SA A r H i H* I Si 1 -i.***-);* 


SUBROU 1 INE CALIBR! ID, P , CALIB, A, B, C, R23 , D, F, F , G, T.S) 

COMMON /I ASER/BU , BA , RF. , HC , HA , 00 , HR, MN , SEC , DEBUC , NUM, 

2DA.N0, YR, II2,N TITEF, IPLOT! 17 ) , IR,NNO(2O0) 

INTEGER DA! 200) , YR(200) , MO! 200) ,L0C!4) ,H!3) , PSY, BAR, OB! 5) , 
2HIK200) , MN! 200) , SEC! 200) 

I N l EGLR B R , B A , RE , 1IG , 1IA , GO , DF B UG , H2 ! BO ) 

REAL T WET! 50) TORY! 50) ,RIH!50) , RHYG! 50) , PRESS! 50) ,FREQ!50) , 
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2P( 2,2,6) 

G 

C READS 8 WRITES HEADER 
G 

READC 25 , 50) DAI 1) , M0( I) , YR( 1) , CL0C( J) , J= 1 , 4) , ( H( K) , K= 1 , 3) , PSY, BAR, 
2BARC,CALIB,S, (0B( I) , 1=1,5) 

50 FORMAT! 3X, 3 12, IX, 4A3, 1X,3A3, 2( 1 1 , IX) , F4 1,1X,F4 2,1X,F7 2,1X,5A3> 

NUM=NUM+ 1 

WRITE (6,40) (II2( 1) , 1=1, 1(1) ,NUM 
40 FORMAT! T, 18A3, 13X, ’ PAGE-? ’ , 12) 

WimE(6, 10) (IKK) ,K= 1 ,3) , ( LOG( J) , J= 1,4) , PSY, 

2BAR, B ARC , CAL IB , S , ( OIK I) , 1= 1 , 5) 

10 FORMAT! ’O’, 343, ’CALIBRATION OF THE HELICOPTER HYGRISTOR AT 

24 A3 , / , * PSYCHROMETER * ’ , 1 1 , 3X, ’ BAROMETER ’ , 

311,/, ' BAROMETER CORRECTION. ’ , F5 2,’ MBAR’,/, 

4 ’ CALIBRATION RESISTANCE OF THE HYGRIS10R ’ , 

~ F5 1,' KOflM’ ,/,* /FRO PRESSURE FREQUENCY OF DIGIQUARTZ ’, 

2182,’ HZ’,/, ’ OBSERVER ’ ,5A3,//, * UNLORRECTED ', 

4 ’DATA’ , //,2X, ’ TIME WET DRY THERM 

5 ’ IIYCR1S BAROMETRIC DIGIOTZ COMMENTS ’ , / , ' HR MN SEC TEMP TEMP 

6 (KOHM) (KOIIH) PllES(MB) FREQ (HZ)’,/) 

Nl= 1 

C 

C READS 8 WRITFS UNCORRTCTED DATA 
C 

30 RFAD( 25 , 15) ID,IIR(N1) ,MN(N1) ,SEC(N1) ,TWET(Nl) , TDRY( N 1 ) ,PRFSS(N1) , 

2Rni(Nl) .FREQ(Nl) ,RIIYG(NI) , (LOC( I) , 1=1,4) 

I F( ID NE IIC) GO TO 35 

15 r>ORMAT( A2, 1X,312,2( 1X.F3 1 ) , IX, F6 2, IX, F4 2 , IX, F6 1.1X.F5 1 , IX, 

24 A3) 

IVRI TE( 6 , 20) IIR(Nl) ,HN(NI) ,SEC(N1) ,TWF1(N1) .TDRY(NI) , RTIK N 1 ) , 

2RIIYG( N 1 ) , PRESS( N I ) ,1'R£Q(N1) , (LOC( I) , 1=1,4) 

NI = N1+1 

20 FORMAT! 3( IX, 12) , 2X, 2( F4 1,3X),I*5 2,3X,F6 1 , 2X, F7 2.4X.F7 1.2X.4A3) 
CO TO 30 
35 N1=N1-I 

II (DIBUG EQ 999) RETURN 
WRI TE( 6 , 60) 

60 FORMAT! ’ 0 ’ , ’ REDUCED DA TA’ , // , 

I’ TIME DIGITAL DIGIOTZ DRY TIIER E E’ , 

2/,’ HR MR SEC PRESS PRESS TEMP TEMP CRND IIELI • ,/) 

GAIL lNTERP(Nl) 

CALL NTLRP2 ( 'I WLT , N 1 ) 

CALL N I ERP2( TORY, N 1 ) 

CAI I NTERP2 ( RTH , H 1 ) 

CALL NTERP2( RIIYG, N I ) ’ 

CALL NTFRP2! PIIFSS , N I ) 

CALL NT1' RP2( FIILQ, N 1 ) 

DO 65 1=1, N1 
C 

C BAROMETER 8 PSYCHROMETER CORRECTIONS 
C 

P11ESS( I) =PRFSS( I)+BARC 

TWET( I)=P( 1, t,PSYHP(2, l.PSY) J*THET( I) 

TORY! I)=P( 1 ,2, PSY) +P( 2, 2, PSY) !>TDRY( I) 

C 

C CALCULATES WATER VAPOR PRESSURE E 
C 

TVET( I ) = 7 G4623+ 19503 16 1 aTWLT( I ) + 03 1358*( TWET( I) **2) - . 00066*1 1 + 
2 00115*TWET( I) ) J PRESS! I) ) (TDRY( I)-TWET( I) ) 

C 

C C0NVER1S THERMISTOR RESISTANCE TO 'TEMPERATURE 
C 

RTH( I)=A1 0C( RFH( 1)/R25) 
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KTII( I) = 1/t A+B*RTIIC I ) +C*RTIK I ) *+3) -273 15 

0 

G CALCULATES PRESSURE FROM I) I GI QUARTZ FREQUENCY 
C 

FREQ< I)=G*C 1-FREQC I)/S)-T+C 1-FREQ( I)/S)«2 
G 

C COMPUTES E FROM HYGRISTOR RESISTANCE 
C 

RRYGC I) = RHYGC I) /CAL IB 

RHYCC I)=RnYGC I)*C 1-C OI401+ 3699 1*ALOG10C RHYGC I) )- 11159 
2s*( ALOGIOC RIIYG( I) ) ) K*2)*C l-RTIK I)/25 )) 

RRYGC I) =AL0G10( IUIYGC I) ) 

RRYGC I ) = C D+E-! RRYGC D+F+CRIIYGC I )) **2) *C 269782 1331= 

2EKPC -427 1 071252/CRTRC D+242 625445) > )/100 
C 

C WRITES REDUCED DATA 
C 

WRITEC 6 ,70) IIRC I) ,MN( I) ,SECC I) , PRESS! I) , FREQC I ) , TDRYC I) , RTOC I) , 
2TWETC 1) .RRYGC I) 

70 F0RMATC3C IX, 12) ,2X,F7 2.1X.F7 2.2X.2CF4 1 , IX) , 2C IX, F5 2)) 

65 CONTINUE 
RETURN 
END 


C 

II ATM PRINTS AND REDUCES THE HELICOPTER ATMOSPHERIC DATA TO 
PRESSURE, TEMPERATURE, WATER VAPOR PRESSURE, AND REDUCED REFRACTIVE 
INDEX GROUND DATA ARE INSERTED AS ENDPOINTS TO TOE LINE ALTITUDES, 
REDUCED REFRACTIVE INDICES, AND THE NUMBER OF POINTS ARE RETURNED 
TO THE MAIN PROGRAM 


PARAMETER LIST 
ID SECTION IDENTIFICATION C IIA) 

CALIB,D,E,F CONSTANTS FOR CONVERTING HYGRISTOR RESISTANCE TO WATER 
VAPOR PRESSURE 

A,B,C,R25 CONSTANTS FOR COMPUTING TEMPERATURE FROM THERMISTOR 
RESISTANCE 


C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

** t US + I -tW I + t - J-Yf."!; K f Hf 1 & PyY.):*.' C4++ I W** ’"i ^sCY***: 


G, T,P,Q,R 

ELE 

PRE 

TEH 

HUM 

ALT 

REF 

K 

LOC 

015 


CONSTANTS I'OR CALCULATING PRESSURE FROM TRANSDUCER 
FREQUENCY 

ENDPOINT ELEVATIONS 

MEAN PRESSURES AT ENDPOINTS 

MEAN TEMPERATURFS AT ENDPOINTS 

MEAN WATER VAPOR PRESSURES AT ENDPOINTS 

HEL I COPIER ALTITUDES (RETURNED) 

REDUCED REFRACTIVE INDICES C RETURNED) 

TOTAL NUMBER OF REDUCED DATA POINTS AI ONG THE LINE 
C RETURNED) 

ARRAY CONTAINING IRE LOCATION OF THE STATION THAT 
THE HFL I COPTER IS FLYING FROM 

ARRAY CONTAINING THE LOCATION OF THE STATION THAT 
THE HEL I COP TF R IS FLYING 10 


SUBROUTINE H ATMC 1 1), CALIB , A, R, C, R25 , D, E, F , C, T, P , Q, R, ELE, PRF , TEM, 
2HUM,ALT,REF,K, LOC, OB) 

COMMON/LASFR/ BR, BA, RE, HC, 1IA, CO, HR, MN , SEC , DEBUC, NUM, 

2DA, MO, YR, 112 , NT ITLE, I PLOW 17) , IR.NN0C200) 

INTEGER TTEC6) ,TTDC5) ,TICC 10) ,TTXC5) , TTFC7) , LOCC 4) ,0BC4) 

INTEGER TTTC4) ,'HIC6) ,TTAC7) , JTBC 9) , TTLC 18) , FTJC 1) ,ri'GC6) 

INTECEft DAC 200) , HOC 200) , YRC 200) ,H2C80) , TTKC5) ,TTZC6> 

1 NTECER BR, BA, RE , HO , nA, CO, DFHUG, STAR 

INTEGER HC 9 , 200) .HRC200) .MNC200) ,SECC200) , MARK! 200) 
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REAL RTR( 200) , FREQ! 200) , RIIYG! 200) , REF! 200) , IlLI ( 200) , TEM( 2) , 
2PRE( 2) , ELE( 2) ,IIUM!2) ,AIRSP!200) ,ALT(200) 


DATA 

TTE/’!N ’ 

’ - T > 

’ IKE’ , 

’AR ’ 

, ’ TER’ 

, ’ M) * 

/ 

DATA 

TTD/’VAP’ 

, ’ OR ’ , 

’PRE’ , 

’SSU’ 

, ’RE ’ 

/ 


DATA 

TTC/’THE’ 

, * RMI ’ , 

’STO’ , 

’R II’ 

, ’ ES I ’ 

, ’STA’ 

, ’ NCE 

I’OIIM’ 

,’) ’/ 







DATA 

TTX/’ ALT’ 

,’HU\ 

’DE ’ , 

’ ! KM’ 

, ’) ’ 

/ 


DATA 

TTF/’DEG’ 

, ■ c* , 


’GRA’ 

, ’P1I ’ 

, ’ VAL’ 

, ’UE 

DATA 

TTG/’ KM ’ 

, ’+ G’ , 

’RAP’ , 

MI V* 

, ’ALU* 

, ’E ’ 

/ 

DATA 

rrr/’TLM’ 

, ’PER’ , 

* ATU’ , 

’RE ’ 

/ 



DAI A 

TTI/’IIZ ’ 

, ’+ G’ , 

’ RAP * , 

MI V’ 

, ’ALU’ 

, ’E ’ 

/ 

DATA 

TTA/’DIG’ 

, ’ mu’ , 

’ ART’ , 

’Z F’ 

, ’ RED’ 

, ’ UEN ’ 

, ’GY 

DATA 

TTB/MIYG’ 

, ’RIS’ , 

’ TOR’ , 

’ RE’ 

, ’SIS’ 

, ’TAN’ 

, ’CE 

i ’ HM) ’ 

/ 







DATA 

'FI'K/ * + ’ 

, ’GRA’ , 

’PH ’ , 

’ VAL’ 

, ’UE ’ 

/ 


DATA 

TTZ/’MB > 

,’+ O’, 

’ RAP ’ , 

MI V’ 

, ’ALU’ 

,’E ’ 

/ 


DATA III/’ ’ / , S TAR/ ’-S’ / 

DATA TTJ/’ V 
DO 97 £ 1=1, 18 
971 TTLC I) = 1 1 1 
Nl = 1 
N=2 

WRITE! 6, 10) 

1 0 FORMAT! ’ 0 ’ , • UNCORRECTED DATA’ , // , 

1 ’ TIME ALT VEL THERM DICIQTZ HYGRIS 

2 1 COMMENTS 1 , / , ’ IIR NN SEC ! KM) MPII KOIIM FREQ (HZ) KOHM’ ,/) 

READS ii WRITES UNCORRECTED DATA 


80 READ! 25 , 15) IP.HIUNI) ,MN(N1) ,SEG!Nl) , ALT ! N 1 ) ,AIRSP!N1) .RTIKNl) , 
2FRE0! N I ) , RIIYG! N 1 ) , MARK! N 1 ) , ! H! I, HI) , 1=1,9) 

ALT! N l ) = ALT! KD! 3048E-03 

15 FORMAT! A2, 1X.3I2, 1X,F5 0, 1X,F3 0, 1X.F4.2, 1X,F6 1,1X,F5 1.A1.9A3) 
IF! IP NE ID) GO TO 35 
N=N+ 1 

IF! N LT 56) GO TO 31 
NUM=NUM+1 

WRITE ! 6 , 40) ! 112! J) , J= 1 , 18) , NUM 
40 FORMAT! > 1’ , 18A3, 13X, ’ PAGE*' ’ , 12) 

N=0 

WRITE! 6, 10) 

31 WRITE! 6, 20) HRINI) ,MN!Nf) ,SEG!HI) , ALT! N 1 ) ,AIRSP!N1) .RI'IKHl) , 

2FRFQ! N 1 ) , RHYG! N 1 ) .MARK! Hi) , ! II! 1 , Nl) , 1= 1 , 9) 

20 FORMA I! 3! IX, 12) ,2X,F5 3,2X,F4 0.2X.F5 2,3X,I'7 1.2X.F6 1,A1,1X,9A3) 
NI = Nl+ 1 
CO TO 30 
35 NI=Nl-l 


INTLRPOLAT ES DATA 


CALI INTERP! HI) 

TSCA=36O0 1 H1U N 1 ) +60'*MN( HI ) -3600 KIIR! 1)-604HN! 1) 

IF! TSCA LT 0) TSCA=TSGA+8640O 
TSCA= 19685/1 A IN 1 ! TSCA/60) > 

GAIL NTE11P2! AIRSP.Nl) 

CALL NTERP2! FRF(1, N 1 ) 

CALL N 1 LRP21 RIIYG , N 1 ) 

CALI N I E11P2! RTfl , H 1 ) 

II ! IPL0TI6) NF 1) GO TO 603 

GALL MPI 0 T! H 1 , HI II, Ill'll, TTL, 1 , TTG, 28, TTK, 14 , TSCA, 3937 , 1 , MARK, 2 
3,1 OG, OR, 3) 

CALL PLO P( 0 ,0 ,5) 

603 II ( I PLOT! 7) NL 1) GO TO 604 

GALI HP LOT'! M 1 , RTII, RIIYG, TTL, 1 , TTB, 27, TTK, 14, TSCA, 0019685,1, 
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0 MARK, 1,L0C,0B,3) 

CALL PLOTC0 ,0 ,S) 

604 IF( IPL0T( 5) N£ .1) GO 10 602 

CALL MPLOTC N 1 , R1H, FREQ, TTL, 1 , TTA, 20, TTI , 16 , TSCA, 003937,1, 
3 NARK, 1 ,L0C,0B,2) 

CALL PL0T( 0. , 0 ,5) 

602 IF (DEHUG Eft 999) CO 10 85 
IF( N LE 49) GO 10 36 
NUM- NIJM+ 1 

WRITE (6,40) (H2(J) ,J=1, 18), NUN 
N =-6 

36 WRITE(6,60> 

N=N+6 

PUTS CROUND DATA IN TIIE SAME ORDER AS TIIE HELICOPTER DATA 

REF 1= REF ( 1 ) 

REF2=REF( 2) 

AM= FREG( 1 ) -FREQ( N 1 ) 

IF( AM GE 0 ) GO TO 70 
EM=ELE( 1) 

ELE( 1 ) = ELE( 2) 

ELE(2)=EM 
EM= REF 1 
REF 1=REF2 
REF2= EM 
LN=TEM( 1) 

TEM( 1) =TEM( 2) 

TEN(2)=EM 
FM=I1UM( 1) 

HUM{ I)=IIUM(2> 

HUM( 2) =LM 
EM=PRE( 1) 

PRE( 1 ) =PRE( 2) 

PRE(2)=EM 
r0 PRES=PRE( I ) 

1EMP=TEM( 1) 

HUM1 = HUM( I) 

A LI I = ELE( 1) 

K= 0 

DO 50 1=1,111 

CHECKS FOR DATA TO BE USED 

IF (MARK(I) EG STAR) DEBUG=99 
If (DEBUG NE 99) GO TO 50 

K= | 

YR( K) = YR( I ) 

M0( K) =M0( I) 

I)A( K) = DA( I) 

HIU K) =HR( I) 

MN( K) = MN( I) 

SEC( K> =SEC( I) 

DO 80 1=1,9 
!0 H( J,K)=H(J, I) 

CONVERTS THERMISTOR RESISTANCE TO TEMPERATURE 
ltrH( l ) = ALOG( RTH( I ) XR25) 

RTH( K) = 1 /(A+BfcRTH( I)+C*(RTH( I>**3>)-273 15 
COMPUTES E FROM HYGRISTOR RESISTANCE 


RHYC( I ) =RHYC( I) /'CAL IB 
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RHYC( I ) = RHYG( I)*( l-( . 3699 1TAL0G10( RRYG( I) )+.01401-. 1 1 159 
2*( AL0G10(11HYG( I) ) )'C*2)-S( 1 ~RTH(K)/25 )) 

RHYG< I ) = ALOG 1 0 ( RHYG( I ) ) 

RHYC( J)=(D+E*RHYC( I) +F*(RHYG( I)**2))/1G0 

RHYG(K)=RHYG(I) *269782 i331-EXP( -4271 071252/(RTH(K)+242 625445)) 
IFCRHYGCK) LT 0 ) RHYGC K) = 0 

CALCULATES PRESSURE FROM DIGIOUARTZ FREQUENCY 

F REQC I ) =G F( l -FREQ.C I)/P)-T*( l-FREQC I)/P)tf*2 
FREQC K) = FREQC 1) s( 1 -Q+A1RSPC I) +R/I012 *AI11SP( D**2) 

CALCULA1 FS HELICOPTER ALTITUDES 

ALTCK) =10 400 KAL0G101 PRES /FRECH K) ) * ( 1 -i 00367-1 ( ( TEMP 
2+UTHC K) )/2 > ) f>< 1 + 378TC ( HUMI /PRES +RHYGC K) /FREQ.CK) )/2. ) ) * 

3 I 001950-1(1 +2 SALTI/6371 >+ALTI 
PRES=FREQ( K) 

TEMP=RTH( K) 

HUM I = RHYGC K) 

ALT I = ALT ( K) 

CALCULATES REFRACTIVE NUMBER 

REF(K) = C300 2*FREQ(K)-41 Ot-RHYG(K) )/(3 709 fc ( RTHC K> +273 15)) 

IF (MARKU) EO STAR AND.K GT 1) DEBUG=0 
HARKCK)=0 
50 C0N1INUE 

ALT 1=18 4l>AL0G10( PRES/PREC 2) ) SC 1 + 00367 S( ( TFMP+TEMC 2) )/2 ))* 

2 ( 1 + 378 r-( (HUM1/PRES+HUM(2)/PRE(2) )/2 ) ) t- 1 001950S(1 +( ALTI+ 

3 FLE( 2) )/637 1 0)+ALT(K) 

AM= AL TI -ELEC 2 ) 


CALCULATES HUMPHREYS MULTI PI ICATION CONSTANT & CORRECTS ALTI'I UDLS 

D IFF=( EIEC2) -ELE( 1) )/(AL'I I-ELFC 1) ) 

DO 55 1=1, K 

ALT( I ) = ALT( l)-AM*( 1 - ( ALT( I ) -ALTO /( ELEC D-ALTD) 

N=N+ I 

It (N I E 54) GO TO 51 

NUM=NUM+l 

N=0 

WRITE (6,40) CH2CJ) , J= 1 , 18) ,NUM 
UR I TEC 6, 60) 

60 FORMATC ’O’, ’ REDUCED HFL 1C0P TER ATMOSPHERIC DATA’ ,// , 

2’ TIME ADJUSTLD PRESS 1 EMI’ L N COMMENTS’,/, 

3’ HR MN SEC ALT (KM) (MB)’,/) 

WRITFS DATA 

51 WRITE( 6,65) HR( I ) , MN( I ) , SEC( I ) , ALT( I ) , FREftC I ) , 

2RTH( I) , RHYGC I) ,REF( I) , ( H( J, I) , J= 1 ,9) 

65 F0RMA'I(3( IX, 12) ,2X,F7 5 , 2X, F7. 2 , 2X, F4 1,2X,F5 2 , 2X, F5 . 1 , 2X, 

29 A3) 

55 CONTINUE 

SCA=20 /(ABS( ALK l)-ALT(K) ) ) /2 54 
WRITLC 6 , 37) DIFF 

37 FORMATC ’0’ , ’MULTIPLICATION CONSTANT TO HUMPHREYS FOUND LA= ’ ,F8.6) 
TSCA=3600*IIR(Nl)+6Q*MN<Nl)-3600 HIRC 1>-60*MN( I) 

IF( TSCA IT 0) TSCA=TSCA+864O0 
'TSCA= I9685/( A I N T( TSCA/60) ) 

IF( IPLOK 16) N( 1) GO TO 606 

CALL MP1 01 ( K, ALT, RF !• , Tfl , 1 ,TTE,23,TTG, 14, TSCA, .03937, l , MARK, 1 
1, LOG, OB, 1) 
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GALL PLOTIO. ,0. ,5) 

C 

G INSERTS GROUND DATA INTO HELICOPTER LINE 
G 

606 DO 75 1= I , K 
L=K+1-I 
M=L+1 

ALT( M)-ALT(L) 

REFIM)=REFIL) 

RTHIM>=RTIIIL) 

MARKl M) = 0 

75 RIIYGI N) = RIIYGI L) 

AL'I ( I ) = ELE( 1) 

REF I I ) = REF 1 
RTIK l)=TLN( 1) 

RIIYGI l ) = HUM! I) 

ALT(K)=ELC(2) 

RLFI K) =RFF2 
RTIK K) =TEH( 2) 

MARK! K) = 0 
JUIYCI K) = IIUMI2) 

IF I ALT! 1 ) LT ALTIK)) GO TO 56 
DO 57 1=1,4 
J=OBI I) 

OBI I)=LOCI I) 

57 LOCI I) = J 

56 DO 54 1=1, K 

G 

G COMPUTES REFRACTIVE NUMBER MINUS LINEAR TERM 
C 

54 REII I) =REF( D+IREFI 1 ) -ItEFI K) ) /< ALT! K) -ALT! 1) )*ALTt I)- 
2 I ALT! K) +ALTI 1 ) ) 1=1 REFt 1 ) -RIM* IK) ) /1 2 -KI ALT! K) -ALT! 1)1 ) 

SGA=20 /I ABSI ALT! IO -ALT! 1 ) ) > /2 . 54 
IFIIPL0ril3) NE 1) GO TO 607 

GALL MPLOTI K, ALT, RTII, ' r T){, 13 , TFF, 1 1 , TTF, 20 , SCA, 19685,0, MARK, 2, 
1LOG, OB, 2) 

GALL PLOTIO ,0 ,5) 

607 IF! IPLOTI 14) NE 1 ) GO TO 608 

CALL MPLOTIK, ALT, RI1YG, TTX, 13, TIT), 14.TTZ, 16, SCA, 15748,0, MARK, 2, 
1L0G.0B.4) 

CALL PLOTIO ,0 ,5) 

608 IF! IPLOTI 15) NE 1) CO TO 85 

GAIL MI’LOII K, ALT, RE 1 , TTX, 13, TTE, 17,TTK, 14 , bCA, 3937, 0 , MARK, 2, 
ILOC.OB, 1) 

CAIL PLOTIO ,0 ,5) 

85 ID= IP 
RFTURN 
END 
C 

G SUBROUTINE INTER!’ INTERPOLATES TIME 
G 

SUBROUTINE I NTERP INI) 

COMMON /LASER/BR, RA, RE , HC , HA, GO, HR, MN , SEC , DERUG , NUH, 

2D A , MO , YR , 112 , NT I TLE , IPLOTI 17) , IR, NMOI 200) 

I N 1 EGER BR, BA, RE, HC, HA, GO, DEBUG 
INTEGER DAI 200) ,M0I200) , YIU 200) ,H2I80) 

INTEGER TIME! 200) , HR! 200) .MNI200) ,SECI200) 

N=0 

DO 50 1=1, N1 

TIME! I ) -IIR< I ) 43600+MNI I)*60+SECI I) 

IF! TIME! I) NE 0) GO TO 55 

N=N+1 

CO TO 50 
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55 IFCN Ed 0) GO TO 50 
J= I-N-l 

J 1=TIMEC I ) -TIMEC J) 

IFC J X LE -9000) TIME( I) =TIMEC D+B64O0 
J 1 = C TIMEC I)-T1ME( J) )/CN+l) 

L= J+N 
J=J+1 

DO 60 K=J,L 
K1 = K-1 

TiHE( K) =TIMEC K1 ) +J 1 
HR( K) =TIMEC K) /3600 
MNC K) = ( TI MEC K) -HRC K) *3600) /60 
SEG( K) =TIME( K) -HRC K) *3600-MNC K) *60 
IF(HR(K) LT 24) GO TO 60 
HRC K)=HRCK)-24 
TIMEC K)=T IHE(K)-86400 
60 CONTINUE 
N=0 

50 CONTINUE 
JDA= DAC 1) 

DO 40 1=1, Nl 
J 1= I- I 

IFCJI NE 0 AND. JIRC Jl) .GT HRC I)) JDA=JDA+1 
YRC I ) = YRC 1) 

moc i) =Hoc i) 

DAC I ) = J DA 
40 CONTINUE 
RETURN 
END 

SUBROUTINE NTERP2 INTERPOLATES ANY SINGLE ARRAY 

SUBROUTINE NTERP2C DATA, N1 ) 

REAL .11 ,DA'I4C200) 

N=0 

DO 45 M=1,NI 
45 IFCDATACM) NE 0 ) GO TO 40 
40 DO 50 I = M, N 1 

IFCDA1ACI) NE 0) GO TO 55 
N=N+ 1 
GO TO 50 

55 II- C N EQ 0) GO TO 50 
J= I-N-l 

J I — C DATAC I)-DArACJ))/(N+l) 

L= J+N 
I=J+I 

DO 60 K=J ,L 
K1 = K-1 

DAT AC K) = DATAC KI ) + J 1 
60 CONTINUE 
N= 0 

50 CONTINUE 
RETURN 
END 

SUBROUTINE HP LOT CNAR.XD.YP, IXTITL.NXTITL, IYTITL.NYT1TL, IZTITL, 
1NZT1TL, XSGA1 E, YSCALE, IT, ICR, IDFLAG, LOCI , L0C2, ISTIID) 
c **•>:*•) **** Tf**^** r*1 I **** c<'********+*r S* KY** £.*** fit ****:( * rs *■> *** 

Cl- A 

G 'K Jf 

C * THIS SUBPROGRAM IS A PLOTTING ROUTINE WRI TTEN BY J E WOLFE i 

G * SUMMER, 1977 MAKING USE OF SUBROUTINES GNPIOT, AAXS, AND TAXIS, A 
C * IT PL01S EITHER TIME OR DECIMAL DATA ON THE X-AXIS AND CAN ANNOTATES 
G * TIIE X-AXIS DOWN TO 10 MINUTE INTERVALS AND UP TO ONLY MONTHS T11E * 
C * DEG I MAI ANNOTATION OF EITHER AXIS IS MADE TO BF I VEN NUMBERS AND A 
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G * ONLY THE SIGNIFICANT PART IS WRITTEN Y-AXIS TAKES ONLY DECIMAL * 
C * VALUES, IT DOES NOT TAKE TIME DATA * 

G j}» 

G * EXPLANATION OF PARAMETERS PASSED TO SUBROUTINE MPLOT IN THE * 

G * SUBROUTINE STATEMENT * 

G * NAR - NUMBER OF POIN1S TO BE PLOTTED * 

G Jr XD - X-AXIS VALUES (DECIMAL), IF TIME PLOT MAKE XD DUMMY ARRAY * 

G * YP - Y-AXIS VALUES (DECIMAL) * 

C * IXTITL - X-AXIS EXPLANATION (INCLUDING DIMENSIONS). * 

C * NXTITL - NUMBER OF LETTERS IN IXTITL * 

C * IYTITL - Y-AXIS EXPLANATION * 

C * NYTirL - NUMBER OF LETTERS IN IYTITL * 

C * IZTITL - CONTAINS THE DIMENSIONS OF THE Y-AXIS VALUES ANn THE * 

G * PHRASE ’ + GRAPH VALUES* * 

C * NZTITL - NUMBER OF LETTERS IN IZTITL. * 

C * XSGALE - SCALING FACTOR FOR X-AXIS IN INCHES/UNITS * 

G * YSGALE - SCALING FACTOR FOR Y-AXIS IN INCIIES/UNITS * 

C * IT - INDICATOR FOR TIME OR DECIMAL PLOTS, IF IT=0, DECIMAL PLOT * 

C * IF 11=1, TIME PI OT * 

C * ICH - ARRAY CORRESSPONDINC TO XD ARRAY, FOR NARKING TWO POINTS * 
C * ALONG THE X-AXIS OF SPECIAL SIGNIFICANCE, EXAMPLE, BFG INNING * 

C * AND ENDING TIME OF HELICOPTER FLYING LINE * 

C * IDI'LAG - NUMBER OF SIGNIFICANT I- I CURES TO THE RIGHT OF THE DECIMAL * 

C * PLACE FOR Y-AXIS VALUES * 

C * LOCI - THE LOCATION AT WRICn DATA IS TAKEN WHERE THE X-AXIS IS * 

C * DISTANCE, IT IS THE LOCATION AT BEGINNING OF PLOT * 

G ¥ L0C2 - WHERE Y-AXIS IS DISTANCE, THIS IS IRE LOCATION AT END OF * 

C * PI OT NOTE IF NO LOCATIONS DESIRED PRINTED ON PLOT, PASS * 

G * BLANK ARRAYS IN LOCI AND L0C2 * 

C * I STUD - INDICATOR FOR WIIAT EXPLANATIONS TO WRITE OUT, USED IN * 

C * STACKING VARIOUS PLOTS OF ONE COMMON X-AXIS VARIABLE * 

q X X* 1 ^ 

C * 1ST!ID= 1 WRITES ONLY THE TITLE OF PLOT (ARRAY (TITLE) * 

C * I STHD= 2 WHITES ONLY 'HIE X-AXIS EXPLANATION * 

C * ISTI1D=3 WRIIES BOTH THE TITLE AND THE X-AXIS EXPLANATION* 

C * El SE WRITES NEITHER THE TITLE NOR THE X-AXIS EXP1ANATION * 

C * J 

C * * 

C * EXPLANATION OF PARAMETERS REQUIRED BY SUBROUTINE MPLOT PASSED * 

C * IN COMMON AREA LASER' * 

G * * 

C * NIIOUR - ARRAY OF 'I HE HOURS OF EACH POINT IN Z- HOURS * 

C * NMIN - ARRAY OF THE MINUTES OF EACH POINT IN Z- HOURS * 

G * NSEC - ARRAY OF THE SECONDS OF EACH POINT IN Z- HOURS * 

C * NDAY - ARRAY OF THE DAY OF THE MONTH OF EACH POINT IN NUMBER TORM * 

C K MO - ARRAY OF THE MONTH OF THE YEAR OF EACH POIN1 IN NUMBER FORM * 

C * NYR - ARRAY Of THE LAST I WO DIGIT’S OF THE YEAR OF EACH POINT * 

C * IT1TLE - THE TITLE OF THE PLOT * 

C * NTITLE - NUMBER OF LETTERS IN IT ITLE * 

C * * 

G * * 

G *********.{;**,);**:( * M i. KM £-K**X }:* i -T* I - * K** S** f: *:* k f.-****^***-*- * t:** tf******* 

COHMON/TAX/ NURMI N( 200) ,IIR( 200) ,DAY(200) , YEAR(200) ,SECSUB(200) 
COMNON/LASEH/ BIl, BA, RE, IIC, I1A, GO, NIIOUR( 200) ,NHIN(2O0) , 

1 NSEC( 200) , DEBUG, NUM,NDAY( 200) ,MO(20O) ,NYR(200) , ITITLE(80) , 

2 NTH I E, IPLOT( 17) , lit, NM0( 200) 

GOMPiON /CON T/ X(200) ,Y(200) 

INTEGER BR, BA, RE, HC, HA, GO, DEBUG 

DIMENSION MONTH! 12) , IXTITL(78) , IYTITL(80) , IZTITLC 00) , ICH(200) , 

I XIX 200) , YP(200) .LOGIC 18) ,L0C2C 18) ,XDP(200) , YPPC 200) 

DOUBLE PRECISION SECSUB.X.Y 

DATA MONTH/ ’ JAN ’ , * FEB ’ , * MAR* , ’ APR’ , ’ MAY’ , ’ JUN’ , * JUL* , 1 AUG* , ’ SEP ’ , 

3 ’ OCT* , ’NOV’ , ’ DFC ’ / 

G 
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DOUBLE PRECISION VALUES IF NEED 

DO 777 1= I , NAJt 
IF ( IDFLAG EG 3) GO TO 778 
XDKEP=SIGN( 1 ,XD( I) ) 

YPKEP=SIGN( 1 , YP( I) ) 

XDC I)=AINT(ABS(XD( I) ) *101-1:5+ 5)/10**5 
YP( I)=AINT( ABS( YP( I) ) * 1 0 S+ I DFLAG+ 5)/I0+*IDFLAG 
XDP( I ) = XD( D/XDKEP 
YPP( I) = YP( I)/YPIfEP 
XDC I)=DBLECXDP( I) ) 

YP( I) =DBL E( YPPC I)) 

T78 X(I)=X1)(I) 

T7 Y( I ) = YP( I ) 

C FIANCE INTLCEll MONTHS TO ALPHA CHARACTER MONTHS 
DO 700 1= 1 , NAB 

IF ( M0( I) FQ 1) NN0( I)=MONTH( 1) 

IF (MO(I) Eft 2) NMOC I)=M0NTH(2> 

IF (M0( I) Eft 3) NMO( I)=N0NTII(3) 

IF ( M0( I ) Eft 4) NMO( I ) = MON Tilt 4) 

IF (M0( I) Eft 5) NMO( I ) = MONTII( 5) 

IF ( HOC I) Eft 6) NMO( I)=M0NI1I(6) 

IF (MOCI) EQ 7) NMO( I) =MON TH( 7) 

IF ( M0( I ) Eft 8) NMO( I ) = MONT ll( 8) 

IF (MOM) I'Q 9) NMO( I ) =MONTII( 9) 

IF (MOC I) Eft 10) NMOC I)=MONTII( 10) 

IF ( M0( I) Eft. 11) NM()( I)=tI0NTH( 11) 

It (MOCI) Eft 12) NMO( [)=J10NTH( 12) 

• 0 CONTINUE 

ASSJGN CONSTANT VALUES 

X0FF=2 
Y0FF=2 

NEND=0 

N=0 
L=0 
K= 1 

III =0 15 
1= 1 

DO LOOP 2 MAKES A CONTINUES TIME ARRAY FROM INPUT OF YEAR, MONT H , DAY, 
HOUR, MINUTE, AND SrCOND OF EACH POINT 

DO 2 1=1, NAR 
N=N+ 1 

NHRMINC I ) =NIIOUR( I)*100+NMIN( I) 

I1RC I) =NHOUIt( I) I 100 
DAYC I ) =NDAY( I) 

YEA1K 1 ) =NYR< I) + 1000 
IF ( IT Eft 0) CO TO 2 
115 CONTINUE 

NCON T = NHRMINC I) 

IF (NHRMINC I) Eft -999) NCONT=16O0 
L=l + I 

IF (I Lft I AND I EQ 1) GO TO 19 
IF (NDAY(I) Lft NDSAVE) K=K+1 
NCON T=NCONT+( 24001 (l -K) ) 

IF (NDAYCI) Lft NDSAVE) GO TO 107 
IF (NMOC I) NE MOSAVF) GO TO 108 
N1)AGAP=N1)AY( I) -NDSAVE 
CO TO 102 
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108 IF ( MOSAVE EQ. MONTH! 1 ) . Oil. MOSAVE. EQ. MONTH! 3) . OR MOSAVE. EQ MONTH! 5) 

1 OR. MOSAVE Ett. MONTH! 7) OR MOSAVE. EQ MONTH! 8) OR. MOSAVE EQ 
2M0NTHI 10) OR. MOSAVE EQ MONTH! 12) ) MEND- 31 
IF ( MOSAVE. EQ MONTH! 4) OR MOSAVE EQ MONTH! 6) OR MOSAVE EQ. MONTH! 9) 

1 OR MOSAVE EQ MONTH! ID) MEND=30 
DIV=NYSAVE/4 
IDV=NYSAVE/4. 

D I FF= D I V- 1 DV 

IF !DIFF NE 0 0 AND MOSAVE EQ. MONTH! 2)) MEND=28 
II- CD IFF EQ O 0 AND MOSAVE EQ. MONTH! 2) ) MEND=29 
NDAGAP= ! ! MEND-NDSAVE) +NDAY! I ) ) 

GO TO 102 
107 NDAGAP= 1 

102 NCONT=NCON T+! 24004 CNDAGAP- 1) ) 

L=I.+! NDAGAP-1) 

19 NHH=NGONT/100 

SECNHR=NIHU36O0 
SECNMN=!NCONT-!NIIR^100) ) (=60. 

SECSUB! I ) =SEGNHR+SEGNMN+NSEG! I) 

IF ! J EQ I) SLCSAV= SECSUB! 1) 

NDSAVE=NDAY! I) 

HOSAVE=NMO! I) 

NYSAVE=NYR! I) 

2 LAST= I 
C 

G DO LOOP 800 REASSIGNS TIME ARRAY SUCH THAT T! 1)=0 
G 

155 DO 800 1=1 .LAST 

800 SECSUB! I ) =SECSUB! I ) -SECSAV 

G 

C LOAD ’XD’ AND ’YP’ IN'10 ’X’ AND »Y» 

G 

DO 3 1=1, NAR 
Y! I) = Y1 > ! I) 

IF ! I F EQ 1) GO TO 4 
X! I ) =XD! I) 

GO TO 3 

4 X! I)=SECSUB! I) 

3 CONTINUE 

IF ! IT) 900, 117, 1 16 

116 CONTINUE 

GALL TAXIS ! J , N, LAST, XSCALE, XOFF, YOFF , HL. IS rnD) 

GO TO 805 

117 CONTINUE 

805 CALL ONPLOT IN, XOFF, YOFF, ITf'lLE, NTITLE, PXPITL, NXNTL, IYTITL, 

1 NYTIT L, J, LAST, IT, NEND, XSCAI E, YSCALE, HL, IZTI 1T..NZTI PL, ICII, IDFLAG, 
2L0CI , L0C2, I STIID) 

CO TO 910 
900 C0N1INUE 
910 CONTINUE 

WRITE ! 33, 192) 

192 I'ORMAF! ’ END PLOT’) 

RETURN 

END 

SUBROUTINE GNPLOT !N, XOFF, YOFF, IT1TLE, HTIUE, IXTITL.NXTITL, 

1 IYTITL, NYTITL, J , LAST, IT, NEND, XSCALE, YSCALE, HL, IZTITL, NZTITL, 

2 ICII, IDFLAG, LOCI ,1002, ISTHD) 

COMMON /CONT/ X! 200) , Y! 200) 

C CtT** STf:** K l"(t*** (. S f * M .('•{.Jt'.j-'f. frYT 

C * 

C 4* 

C * THIS SUBROUTINE WAS ADAPTED TO DATA 1 ’ S NEFDS JULY, 1977 BY * 

C * J E WOLFE FROM PRE-EXISTING PROCRAMS BY SAME GNPLOT PLOTS THE DATAr 
G * WRITES THE EXPLANATIONS, AND ANNOTATES DECIMAL AXES JT 
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G * 

G * 

G **********************.<: S'W.**'***'*',! K C*** fc-J-* C jjT^I:**********^****:!"):*:!::!:***:): 
DIMENSION IGH(N), XPLOT( 1000) , YPLOr(lOOO), XPTC 100) , 

1 YPT< 100) , XYDIVC100), YYDIVC 100) ,XPAN( 100) , YPANC 100) , 

2ITITLE( NTITLE) , IXTITL1 NXT1TL) , I YTITL( NYTITL) , 1ZH l’L( NZTI'IL) 

3, LOCK 18) , L0G2C 18) 

DOUBLE PRECISION X.Y 
DATA IBL/ ’ */, ISTAR/’*’/ 

AR=IIL*2 
IEND=0 
IIEND=0 
XDI V=5 
YDIV=5. 

WRITE (33, 191) 

19 1 FORMAT! ’ ’ , ’ FLAG2’ ) 

GALL AAXS ( Y, YDI V, YMIN, YLENTH, YPT.N2, YYDIV.N, YP 1 , JDEG , JDYPAS , 

1 IDFLAG, NYPASS) 

YL= YLENTRf-'YSC ALE+ YOFF 
CALL PLOT ( XOFF, YOFF, 3) 

GALL PLOT ( XOFF, YL, 2) 

DO 6 1=1, N2 
YDRI=XOFF+. 125 
YDR2= XOFF- 125 

YPANC I ) = YYD IV( I) -KYSGALE+YOFF 
YAXNUM= XOFF-O 9 
YYAXNM=YPAN( I)-HL/2 
IF( I Ed 1) CO TO 3 

IF( YYAXNN LT YL OG+HI +( ITL-fO 4)) GO TO 6 
3 CALL PLOT ( YDR1 , YPANC I) , 3) 

CALL PLOT ( YDR2, YPANC I) ,2) 

GALL NUMBER ( YAXNUM, YYAXNM, IEL , YPT(I>,0 , JDEG) 

GALL WflEREC XI OG , YLOC .SIZE) 

6 CONTINUE 

IF (ir Eft 1) CO TO 900 
WRITE (33, 192) 

192 FORMAT ( ’ * , ’ CFLAG2 ’ ) 

116 CALI AAXS ( X, XDI V, XMIN, XLENTH,XPT,N1 , XYDIV, N, YP2 , JDEC , JDXPAS , 

1 IDFLAG, NXP ASS) 

XI =XI ENTH -SXSCALE+XOFF 
CALL PLOP (XOFF, YOFF, 3) 

GALL PLOT (XL, YOFF, 2) 

DO 5 1=1, N1 
XDR1= YOFF+ 125 
XDR2= YOFF- 125 

XPANC I)=XYDIV( I ) *XSCALE+XOFF 
CALL PLOT (XPANC I) ,XDRl,3) 

CALL PLOT ( XPAN( I ) , XDR2, 2) 

XAXNUfI= YOFF- 5 
XXAXNM= XPANC I)-HL 

5 GALL NUMBER ( XXAXNM, XAXNUM, IIL ,XPT(I),0 ,1) 

GO TO 1 15 

900 XL= XCN) 1XSCAI E+XOFF 

GALL PI Or (XI, YOFF, 3) 

CALL PLOT (XOFF, YOFF, 2) 

115 I ARRW= 0 

IF ( IT Eft I) XMIN =0 
HLS=IILS.O 3 
DO 2 1=1, N 

XPLOT( I) = ( XC I ) -XMI N ) W XSCALE+XOFF 
YPLOTC I)=(Y( I) -YMIN ) *YSCALE+YOFF 
rF ( I EQ 1) CO TO 12 
13 CALL PLOT ( XPLOTC I ) , YPLOTC I ) , 2) 

CALL SYMBOL ( XPI OKI), YPLOTC I ) , HLS , 0 , 0 . , - 1 ) 
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GO TO 2 

12 CALL PLOT < XPLOT! 1) ,YPLOT( 1) ,3) 

HLS=HL*0.3 

CALL SYMBOL IXPLOT! 1) , YPLOT! 1) ,HLS,O,0 ,-l> 

2 ’ CONTINUE 

YA=YL+0.51*AR 
DO 10 1=1, N 

IF ( ICH( I) NE. I STAID GOTO 10 
IARRW= IARRV+I 

sq=!-i)**iarrw/2 

ISN=218.6+SQ 
XPAR= XPLOT! II 

IF ! ISN EQ 219) XPAR=XPLOT( I)-AR*0.57 
CALL SYMBOL ( XPAR , YL, AR, ISN, 0. , -I) 

CALL SYMBOL! XPLOT! I) , YA , AR, 1 3 , 0 , - 1 ) 

10 CONTINUE 

11 I1TL = 1 2 MIL 
YTITLE=YL+0 . 95+HTL 
XTITLE=XOFF-0 9 

IFUS1HD LQ 1 OR ISIin) EQ 3) CALL SYMBOL! XTITLE, YTITLE, HTL, 

1 ITITI E, 0. , NTITLE) 

YLGCC= YTITLE- 6 

IFCISTTID EQ 1 OR ISTHD EQ 3) CALL SYMBOL! XTITLE, YLOCC, RIL, LOCI , 

10 , 12) 

CALI WHERE! XLOC.YLOC, SIZE) 

XI OCC= XI -*( 81#HTL4*12) 

IF! IS'I II!) EQ 1 . OR ISTHD EQ 3) cALL SYMBOL! XLOCC, YLOCC, I1TL, L0C2, 

10 , IB) 

YYAN=YL+ 85 
XYAN=XTITLE 

CALL SYMBOL ! XYAN , YYAN , HTL , IYTITL.0 , NYTITL) 

XYAN 1 = XYAN+ INYTIIL+D-JO ai*JITL 
XYAN2=XYAN1+1 0 i-RTL 
YPI = YP 1 

IF ! YP I EQ, 0, ) NYPASS=3 

CALL SYMBOL ! XYAN 1 , YYAN, HTL, 122,0. ,-l) 

CALL NUMBER ! XYAN2 , YYAN , HTL , YP 1 , 0 .JDYPAS) 

XYAN3= XYAN2+ ! N YP ASS+O 5) <11 TL 1-0.81 

CALL SYMBOL ( XYAN3, YYAN, HTL, IZTI TL, 0. , NZTITL) 

510 YXAN= YOFF- 1 0 

XXAN=0 5+ XOFF 

1 1* ! IT EQ 1) GO TO 501 

IF ! ISIIID EQ 2 OR ISTHD EQ 3) CALL SYMBOL ! XXAN, YXAN.HTL, IXTITL, 

10 , NXTI TL) 

WRITE ! 33, 193) 

193 FORMAT! ’ ’ , ’ GFLAG3 ’ ) 

50 1 RETURN 
END 

SUBROUTINE AAXS ! Y, DI V, PMIN, PL , YDIV, N 1 , YYDI V, NAR, YPASS, JDEC, 

1 JDYPAS, I DF LAG , N YP ASS ) 

G **** !-*** ! **** I:* **-*.-(. H f- *** t'****** ** <***-('**;£*:!..).*****.): t*f^**¥** 

C * 

C * 

C * THIS PROGRAM SEARCHES AN ARRAY FOR MAXIMUM AND MINIMUM VALUES , 

C * FINDS THE LENGTH OF THE RANGE OF VALUES IN AN ARRAY AND DIVIDES THE* 
C * LENCTII INTO EQUAL PARTS WHICH RESULTS IN POINTS IN HIE LENGTH WHICH* 


G * ARE INTEGER VALUES THIS PROGRAM CAN BE PUT INTO A PL0T1 ING SUB- * 
C * ROUTINE AND WILL PRODUCE EVEN INTEGER DIVISIONS OF ANY AXIS * 
G * PROGRAM WAS WRITTEN BY J E WOLFE JUNE 30, 1977 * 
C * T 
C * * 


C *■****.! -fc^*************.):* (:*** f f-********** M f. W ft-*): r** i **-f ** f"****** 

DIMENSION YYDIV! 100) ,YDIV( 100) ,Y(200) 

DOUBLE PRECISION Y, YI 1 , YMAX, YMIN, TYMAX, T YMIN, YPASS, RR 


*- * * 
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Rl=DIV+i 

JJ=7 

WRITE (33,191) 

191 FORMAT* * ’ , ’ FLAG3 1 ) 

C 

G FIND MAXIMUM AND MINIMUM IN ARRAY 
G 

YMAX=-999999. 

YMIN=999999 . 

DO 2 1=1, NAR 

IF (Y(I) GT YMAX) YMAX=Y(1) 

IF (Y(I) LT. YMIN) YM1N=Y(I) 

2 CONTINUE 

RR= YMAX- YMIN 
NOTE=0 

IF ( YMAX Eft YMIN) GO TO 762 
DO 200 1=1,20 
IF (NOTE EQ 1) GO 10 202 
YI 1= 1 /I.OD 0IU( I-I) 

GO 10 203 

202 YI 1= l Of) 01-)-K( I-I) 

203 1YMAX=YMAXYYI I 
TYMIN=YMIN*YII 

IFC I YMAX Cl’ 03110607 OR TYMIN LT.-8388608 ) GO TO 252 
IF( TYMAX GE.O ) IYMAX= I1)INT(TYMAX+ 01) 

IF(TYMAX IT 0 ) IYMAX= ID INT( TYMAX- 01) 

IFC1YMIN GF 0 ) IYMIN= II)INT(1YMIN+ 01) 

II (TYNIN.IT 0 ) IYMIN= IDINK TYMIN- 01) 

IF ( I YMAX Eft I YMIN AND I Eft 1 ) GO TO 210 
GO 10 207 
210 N0I‘E= 1 

GO TO 205 

207 IF ( I YMAX Eft I YMIN) GO TO 205 
IF (NOTE Eft 1) GO TO 252 
205 XDEC= TYMAX- 1 YMAX 

ZDEC= TYMIN- I YMIN 

IF ( l YMAX Eft I YMIN AND NOTE Eft 0) GO TO 252 
200 CONTINUE 
252 JDEC= 1DFI AG 

IF (NOTE Fft 1) CO TO 27! 

Y1M=ABS( XDFCl 10 ! ■£( 1-1) ) + 000001 
Y2M= ABS( ZI)EC4 lO-S* ( 1-1) )+ 000001 
GO 10 272 

271 YlM=ABS(XDFC/10m 1-2) )+ 000001 

Y2M= ABS( ZI)EC/ 10 1-2) )+ 000001 

272 IF( XDEC NF 0 ) Y1M=S IGN( Y1M, XDEC) 

IF(ZDEC NE 0 ) Y2M=S IGN( Y2M, ZDEC) 

767 MAX= Y IM-K 1 0 SI IDEC 

MIN= Y2M K 1 0-K- 1 JDEG 
769 ML0=MIN/10 

NML=MlN-NLOKiO 

IF( MIN LT 0) ML0=NL0-1 

MIN=ra0*10 

IF ( MML GE 5 AND MIN GE 0 0R.M1N.LT.0 AND.MML.GE -5) MIN=MIN+5 
LENG 1 11= MAX-MI N 
DO 3 K= 1 , 20 

IF (K NE. I) LENCTII=LENGTIf+l 

Y I N Cll= I ENGl’II/D I V 

INCR=YINCR 

DIFF=YI NCR- INCH 

IF (DIFF Eft. 0) GO TO 4 

3 CONTINUE 

4 CONTINUE 

IF ( NO TF Eft I) GO TO 285 
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YPASS= IYMIN*10*4( 1-1) 

JDYPAS= 1 
GO TO 286 

285 I IK 1= IYMIN/10 

YPASS= IIN1/10.0D O0**( 1-2) 

IFC TYMAX GT 8388607 OR.TYMIN LT.-8388607 ) YPASS= IYMIN/10. D 00**( I 
8 - 2 ) 

IF (JDYFAS LT. 1> JDYPAS= 1 

286 YYNIN=MIN 

DO 208 K= 1 , 20 
YPLP= YP ASS/ 1 0**( K- 1 ) 

IF( ABS( YPLP) . LT 1) GO TO 206 
208 CONTINUE 
206 K=K-1 

NYPASS=K+ 1+JDYPAS 
DO 800 J= 1 , N1 
K= J- 1 

YYD I VC J) =YINCRSK 
800 YDIVC J)=YYMIN+YYDIV(J) 

XM2=0 

1)0 836 K=l, 10 

IFC NOTE EO 0) NSF=JDEC+( 1-1) 

IK NOTE EQ 1) NSF= JDEC 
IFCJDFC EQ 3) NSF=2 

IFCNSF LE 2) MMINY=AINT( YDIV( 1) /10. ) * 10 
IF( NSF LE 2 ANI) YDIVC 1).LT 0.) MMINY= YDIVC 1) 

IFCNSF EQ 3) GO TO 891 
IF( NSF EQ 4) GO r I0 892 
1F( NSF LQ 5) GO TO 893 
IFCNSF EQ 6) CO TO 894 
IFCNSF EQ 7) GO TO 895 
IFCNSF EQ 0) GO TO 896 
GO TO 899 

891 XM1 = AIN1( YDIVC D/100 )*100 

IF (LENGTH LT 50) XN1 = AINT( YDIVC 11/10 )^10 
XNM=XH1+XN2*< K- 1 ) 

XM2= 10 
GO TO 898 

892 XH1 = AINF( YDIVC D/1000 )*I0OO. 

XMM= XN1+XN2KK-1) 

XM2= 100 
GO TO 898 

893 XHDAINTC YDIVC 0/10000 )* 10000 
XMM=XMl+XI12*(K-l) 

XH2= 1000 
GO TO 898 

894 XM1 = A INTC YDIV( 0/100000.) I 100000 
XMH=Xm+XM2*(K-n 

XK2= 10000 
GO TO 890 

895 XM1 = A1NT( YDIVC D/1000000 )S-1O00O00 
XTIN= XM1 +XM24C K- 1 ) 

XM2= 100000 
CO '10 898 ’ 

896 XM1 = A1NT( YDIVC 0/10000000 )*1000O00Q. 

XMH=XH1+XM2/(K- I ) 

XM2= 1000000 
GO TO 898 

898 Xfl= YDIVC D-XFI1 

IFC YDIVC 1) GE XMM) GO TO 835 
GO TO 899 

835 MNINY=XKM 

836 CONT I NUE 

899 N2=0 
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C 

c 

G LOOP ’801’ DETERMINES 'I HE NUMBER OF ANNOTATION VALUES ON THE AXIS 
C YDIV ARRAY IS THE ANNOTATION NUMBERS IF WANT LESS VALUES ON TIIE AXIS, 
C CHANGE VALUE OF NADD F. G. . FOR FACTOR OF TEN LESS, SET MADD= ( J- I ) * 100 
C 
C 

DO 801 J= 1 , 100 
YDSAVE= MAX 
MADDK J-l) 

IF( LENGTH LI' 50. AND LENGTH GE 10) GO TO 881 
IFC LENGTH LT 100 AND LENGTH GE 50) GO TO 882 
IF( LENGTH LT 500 AND LENGTH GE 100) GO TO 083 
I F( LENGTH LT 1000 AND LENGTH GE 500) GO TO 084 
IF ( LENGTH LT 5000 AND LENGTH GE 1000) GO TO 085 
I F( LENGTH LI 10000. AND LENGTH GE 5000) CO TO 886 
IK LENGTH LT 50000 AND LF NOTH GE 10000) CO TO 087 
IF( LENGTH LT 100000 AND I ENGTH GE 50000) CO TO 808 
CO TO 800 

881 Y1)SAVF'= MAX+5 
MADD= ( I- 1 ) *5 
GO TO 890 

882 YDSAVE= MAX+ 1 0 
HADD= (J-1)*I0 
GO TO 090 

083 YDS A VF= MAX+5 *10 
MADD=( J-l) *5*10 
GO TO 890 

084 YDSAVE=MAX+ 10**2 
MADD=( J-l) A 10*- K2 
GO TO 890 

885 YDSAVE= MAX+5* 10**2 
MADD= ( J- 1 ) *5-*. 1 0~*2 
GO 10 890 

886 YDS AVE= MAX+ 1 0**3 
MADD= ( J- 1 ) * 1 0T 13 
GO TO 890 

887 YDS AVE= MAX+5 f: 1 0 i=*3 
MADD= ( I- 1) *51- 10**3 
GO TO 890 

888 YDSAVF= MAX+ 10* f=4 
MADD=( 1 - 1)1 10 K. 4 

090 YD I V( J) =MMINY+MA1)D 

IF( J Eft l) MIN=Y1)IV( 1 ) 

YYDIV( J) = YD1 V( J) -MIN 
IF <YDIV( J) GT YDSAVE) GO TO 802 
YI)IV( J) = YIH V( J) /10* SJDEO 

YYDIVC J)=YYD1V( J) /10-J*JDEC 

801 N2=N2+ 1 

802 N 1 =N2 

UR I IE (33, 120) 

120 FORMAT ( ’ >, ’ANNOTATION VALUES’) 

UR I IE (33, 101) (YDIV(J) , J= 1 , N 1 ) 

10! FORMA! <’ ’ , 7F9 3) 

YYF1IN=M1N/10 **JDEC 
DO 1 12 K= 1 , NAR 
112 Y( K) = Y( K) -YPASS 
PM1N=YYI'1IN 
PI =YI)IV(N1)-YD1V( I) 

WRITE (33,777) YPASS 
777 F ORMA T( ’ ’, ’YPASS ’,D17 I) 

WRITE (33,777) ( Y( K) , 1 , NAR) 

GO 10 761 
762 N 1 = I 
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YDIV( 1 ) = YP1IN 
YYD IV( X ) =0 
PPIIN= YP1IN 
- PL=Q 

YPASS=0 
JDEC=1DFLAG 
JDYPAS= 1 
76 1 RETURN 
END 

SUBROUTINE TAXIS ( J.N.LAST, XSCALE,XOFF,YOFF, EIL, ISTHD) 

C sSskJk** - ?. X4 f 1 * X ********************* 


C * * 
C * * 
G * THIS SUBROUTINE WAS ADAPTED TO DATAl’S NEEDS JULY, 1977 BY * 
G * J E WOLFE FROM PRE-EXISTING PROGRAMS BY SAME IAXIS I- INDS A SUIT- * 
C * ABLE TIPE-AXIS ANNOTATION INTERVAL FROM TIE LENGTH OF TIPE OVFR * 
G * WHICH THE DATA ARE TAKEN AND WRITES TIE VALUES ON THE X-AXIS, IN- * 
G * GLUDING THE BEGINNING AND ENDING TIPES TAXIS CHECKS FOR ANNOTA- * 
G * T10N OVERLAPS FROM THESE TOO TIPES AND ELIMINA'ILS SUCCEEDING AND * 
G * PIECED I NG VAIUES, RESPECTIVELY IN THE EVENT OP AN OVERLAP * 
C * * 
C * * 


C ****** x* l *t ** i ** cal c x***- x* x** x*4 * k* (-*** c^tr-k i t,***-' ** ** i. x x x i i xxi x~****** 
C0MP10N/TAX/ NHRPIINI 200) ,IIR(20O) , DAY! 200) , YEAR! 200) , SECSUBI 200) 
CONPION /LASFR/BR, BA, RE, IIC, IIA, GO, NHOURC 200) .NMINC200) , 

1 NSEGC200) , DEBUC, NUPI,NDAY( 200) ,M0(200) ,NYR(200) , ITIILEIOO) , 

2 N TITLE, IPLOTC 17) , IR,NP10(20<» 

DOUBLE PRECISION SECSUB 

I NTECER BR, B A , RE , IIC , 11A , GO , DEBUG 
1NIEGER II, D, PI, MINUTE 

DATA H/ ’ H ’ / , I)/ ’ I) ’ / , PI/ ’ PI* / , MINUTE/ ’MIN’/ 

WRITE (33,191) 

19 1 FORMAT! ’ ’ , ’ TFLAG1 ’ ) 

YHI = YOF F+ 125 
YIO=YOPP- 125 
IIY1 = Y0FF- 33 
IIY2= YOFI - 66 
IIY3= YOP f - 99 
TCP LAG=0 

ISANA=NHIN( D/XO 
HRPIIN 1 = NHRPIIN( 1) 

HRMINL=NIIRPIIN( N) 

SECL= NSECC N) 

CSEGL=SLCSUB( N) ^XSCALE+XOFF 

II I L- 1 2! HI 

SP1 = 1ITL*0 B 

SP2=IILM) 0 

XOLH=XOrF-iH *0 25 

DO 10 1=1, 1 AST 

HRP= NIIOURC I) 

BMIN=NP1IN( I) 

SSEC= NSEC( I) 

SP1IN= ( NHRPIINI I)-IIR( I) mo 
SHR=NIIOUR( I)*3600 +SPIIN 
SDAY= ( NDAY( I ) - 1 ) *3600 ,4 24 . +SHR+SPIIN 
IF (J Ett I AND I EO 1) GO TO 5 
CO TO 1 
5 LOAN=PI 

IF (SECSUB(LAST) LE 864000) IOAN=D 
IF ( SECSUBt LAS T) LE 10000) T OAN=H 
IF (SELSUBdASn IE 7200) L0AN=P1I NUTE 
CALL PLOT (XOI'F, YIII.3) 

CALL PLOT (X01P , Y1 0,2) 

XHI = X01F-2 5 -E' J 2 



XH2-XH1 

IF ( HRP LT 10 ) XH1=XH1+SP2 
CALL NUMBER ( XH1 , HY1 , HL, HRP , 0. , - 1 ) 

CALL SYMBOL (X0LH.HY1 ,HL, 122,0. ,-D 
XMl=XOFF+0 5f SP2 

CALL NUMBER C XM1 , HY1 , HL, BM1N, 0. 1) 

CALL WHERE ( XLOC , YLOC, S IZE) 

IFtlSMD Ed 1 OR ISTHD.Eft.4) GO IX) 80 
CALL SYMBOL ( XH2, HY2, HL, ’HR’ , 0 ,2) 

CALL SYMBOL ( XOLH, HY2 , HL, 122 , 0 ,-l) 

CALL SYMBOL ( XM( , HY2 , HL, ’ MIN ’ , 0 ,3) 

XANN=SP1-C5 +X0FF 

CALL SYMBOL ( XANN , HY2 , HTL , ’ GMT- 1 0HR’ , 0 . , 8) 

CALL WHERE ( XKFEP , YKEEP .SIZE) 

GO TO 80 
CONTINUE 

IF (LOAN NE MINUTE. OR ICFLAG.EQ 1) GO TO 16 

NA=NMIN< I ) / 10 

IF ( 1SANA EO NA) GO TO 16 

NB=NMIN( I)-(NA=i 10) 

DO 15 K- NA, 5 
KK=K-NA 

HX= ( SECSUBC I ) - ( NB1-60+SSEC) +600*KK) -SXSCALE+XOFF 

It (HX GT CSLCL) GO TO 17 

XMINA1=HRP 

XMINA2=Kfc 1 0 

XAl=HX-2 5-f SP2 

XA2=HX+Q 51SP2 

XA3= XA2+ ( 2 ' Sl‘2 ) 

IF( XA3 GE GSECL-(SP2M 5)) GO TO 15 
CAIL PLOT ( HX, YHI , 3) 

CALI PLOT (HX.YL0.2) 

IF (XA! LT XL0C+SP2) GO TO 15 
IF( XMINA 1 LT 10 ) XA1=XAI+SP2 
CALL NUIBEll ( XA! , HY1 , HL, XM1NA1 , 0 ,-l) 

HZ=HX-HL*0 25 

CALL SYMBOL (IIZ, IIY! , HL, 122, 0 ,-l) 

CALL NUMBER ( XA2, HY1 , HL, XMINA2 , 0 ,-l) 

15 CALI WHERE ( XI OC , YLOC, S IZL) 

17 rCFl AC= 1 

16 CONTINUE 

IF (LOAN NE H AND LOAN. NE MINUTE) GO TO 60 
IF (NHOUR(I) EO NHRSAV) GO TO 60 
HX= ( SI CSUB( I ) -SMI N-SSEC) KXSCALE+XOFF 
XAl=HX-2 5ISP2 
XA2= HX+O 5 ( SP2 

IF (XA1 LT XI0C+SP2 OR XA2+3 CSP2 GT. CSFGL-2-1SP2) GO TO 505 
CALL PI 01 (HX.YHI.3) 

CALL PLOI (HX, YI0,2) 

IF ( HR!’ LT 10 ) XA1 = XA1+SP2 
CALL NUMBER (XA1 , HYi , HL, HUP, 0 ,-I) 

H'Z= HX-HL i-0 25 

CALL SYMBOL ( HZ, HY1 , HL, 122, 0. , -1) 

CAI I NUNDER( XA2.HY1 , HL, 0 . , 0 ,-I> 

505 CALL WHERE ( XI OC, YIOC, SIZE) 

IF (LOAN NF MINUTE) GO TO 60 
DO 58 1 , 5 

HX= ( SFCSUB( 1 ) -SMIN-SSEG+ 600 M) XXSCALL+XOFF 

IF (HX GT CStCL ) GO 10 60 

XMINA 1= HRP 

XNINA2= J S 10 

XAl=HX-2 51SP2 

XA2=IIX+0 51SP2 

IF ( XA 1 LT XL0C+SP2 OR XA2+3 SSP2 GT CSECL-2*SP2) GO TO 58 
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CALL PLOT ( IIX, YHI , 3) 

CALL PLOT ( HX, YLO, 2) 

IF(XMINA1 LI 10 ) XA1=XA1+SP2 

CALL NUMBER (XA1 , HY1 , IIL, XMINAI , 0. 1 ) 

lIZ=RK-HLt'0 25 

CALL SYMBOL ( H7, HY1 , HL, 122, 0 ,-l) 

CALL NUMBER ( XA2 , 11Y1 , IIL, XMINA2 , 0 ,-l) 
58 CALL WHERE CXLOC, YLOC, SIZE) 

60 CONTINUE 

IF (LOAN EO M) CO TO 70 
IF (NDAY(I).EO NDASAV) GO TO 70 
HX= ( SL CSUB( I ) -SHR-SSEC) *XSCALE+XOFF 
IF (HX LT. XKEEP+SP2.K4) CO TO 65 
CAIL PLOT ( IIX, YHI ,3) 

CALL PLOT (IIX, YLO, 2) 

CALL NUMBER (nX,HY2, 1FL,DAY(I),0 ,-l> 
65 CALL WHERE! XLOC, YLOC, SIZE) 

70 CONTINUE 

IF (NMO(I) Ed MONSAV) CO TO 75 

H0= ( SECSU1K D-SDAY-SStC) J-XSCAI E+XOFF 

HX= II0+3 MIL 

IF (LOAN Ed if) IIX= HO 

CALL PI 01(110, YHI, 3) 

CALL PLOT (IlO, YLO, 2) 

IF (HX IT XKEEP+4 CSP2) IIY2=RY3 
CALL SYMBOL (IIX,1IY2, IIL,NH0(I),0 ,3) 
IIY2= YOFF- 66 

CALL WHERE ( XI OC, YI OC, S IZE) 

75 CONTINUE 

IF (NYR(I) Ed NY11SAV) GO TO 80 
HX=HO 

CALL PI 0 T( HX, YHI , 3) 

CAIL PLO T( HX, YI 0, 2) 

1F( IIX LT XKEFP+4 t=SP2) IIY3=Y0FF-1 .32 
CALL NUMBER ( HX, IIY3 , IIL , YEAR( I) ,0. , - l) 
HY3=X0FI'- 90 
80 NHRSAV=NHOUR( I) 

NI)ASAV=NDAY( I) 

MONSAV* NM0( I) 

10 NYRSAV=NYR( I) 

XLNBII=SECSUB( N) -fcXSCALE+XOFF 
CAIL PLOT (XLNRH ,Y1II,3) 

CALL PLOT ( XLNBII ,YI0,2) 

XA1 = X1 NBI1-2 5I-SP2 

XA2=XLNBH+0 5 I-SP2 

IF ( II RP IT 10 ) XA1=XA1+SP2 

CALL NUMBER ( XA I , HY l , HL, HRP, 0 ,-I) 

IILNLH* XLNBII-1IL f 0 25 

CAIL SYMBOL ( KLNLII ,HY! ,HL, 122,0 ,-l> 
CALL NUMBER < XA2, 1IY1 , IIL, BMIN, 0 ,-l) 
WRI1E (33,200) 

200 FORMA 1 (’ ’ , ’ 1 FLAC 10’) 

RE TURN 
END 



APPENDIX IV 

OTHER COMPUTER PROGRAMS 
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CCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCGCCCCCCCCCCCCOCCCCCeCtCCC 
C <: 
C PROCRAM 10 REDUCE A SPATIAL DISTANCE TO A UNIVERSAL TRANS- C 
C VERSE MERCATOR PLANE DISTANCE WRITIEN BY J) SCHENCK, AUG 1977 C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

0 

C 

c 

G 


THE PROGRAM TAKES TWO DATA CARDS AS INPUT TOR EACH SEPARATE 
LINE TO BE COriPUTtn THE FIRST CARD OF 1HE PAIR NAY CONIAIN THE 
NAME OF 'HIE LINE, AND WILL RE PRINTED AT TIIE l OP OF 'IIIA‘1 SECTION 
OF THE OUTPUT THE SECOND CARD OF EACH PAIR MUST CONIAIN THE 
FOLLOWING COLUMNS 1-10 CONIAIN IRE SPA UAL CHORD DISTANCE , 
"BICDC" i IN AN FIO 3 FORMATi COI S 11-30 CONTAIN THE ELEVATIONS 
OF THE 1W0 ENDPOINTS, "Hr 1 8 "H2'\ IN TWO FIO 2 FORMA IS, COLS 
31-50 CONTAIN THE "X" PLANE COORDINATES OF EACH POINT 01' 1 HE 
LINE, IN 'I WO I* 10 I FORMATS, COLS 51-55 CONIAIN '1HF AZ1MUIH OF 
THE LINE IN AN F5 1 FORMAT, COLS 56-75 CONTAIN 1HF LA TIT UDI* IN 
DECIMAL DEGREFS OF EACH POINT, IN TWO FIO 6 FORMA IS THE FINAL 
DATA CARD MUST CONIAIN A "1“ IN COLUMN *00 OUll'UT FOR EACH LINE 
IS. I HE INFORMATION ON IHF FI11S1 DAI A CARD OF EACH PAIR, THE 
SPATIAL CHORD DISTANCE, THE ELEVATIONS OF THE ENDPOINTS, 1HE 
ELLIPSOIDAL ARC DISTANCE, "DA" j AND THE UTM MAP DISTANCE, "DM2" 


C 

C 

0 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


GCCCCCCCCCCeCCCCCCCCCCCeCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCOCCCeCCCCC 
c C 


CF** THIS SECTION INITIALIZES VARIABLES AND READS INPUT 
DIMENSION XLINEt 12) 

DOUBLE PRECISION B ICDC , H 1 , H2 , RA, W, DS IN , ESO, AZ , XI , X2 , DSQRT, 

I CLAT I , GLA 12 , Cl A I , DCOS , P I , REDUC T, U , DAA , DA, DM2 , SCLA'I , AH, AN , A 
DEDUCT = 0 9999067D 0 
PI = 3 14 1 592653509 8D 0 
A=637H206 41) 0 
£SQ=0 00676865BD 0 
200 READ (8,103) ( XLINEC I) , 1= 1 , 12) 

103 FORMAT ( I2A6) 

WRl IE (9, 10 D 

104 FORMAT (’ LINE REDUC I ION ONTO IM PLANE OF •) 

WRITE (9,103) KLINE 

READ (8,100) BICDC, HI. H2 , XI , X2 , AZ, CLAT1 , GLA'12 , N 

100 FORMAT (FIO 3.2F10 2.2F10 1 ,F5. 1 ,2F10 6, TOO, ID 
WRITE (9,101) BICDC, HI, H2 

101 FORMAT (’ SPATIAL CHORD DISTANCE =’,5X,FI0 3,/,’ ELEVATIONS OF END 
1 POINTS ARE ’ , 5X, I’ 8 2,2X, ’ AND* ,5X,F8 2) 

C41 F THIS SECTION COMPUIES THE MEAN OF I HE LAII TUDE OF THE ENDPOINTS, 

Cl l l CONVERIS IT TO RADIANS AND TAKES THE SINE OF THE RESULT 
GI ArM0LATl+CLAT2)/2 /ISO -FPI 
SCL A T= DS I N ( CLA I ) I 12 

Ctl-t THIS SEC I ION COMPUTES "W" USING THE 1 ORMULA 
C11* W=SQRT( I -ESQ 1 ( S ! NE( GLAT) 4 i 2) ) 

W=DSGRT(! -ESOISGLAT) 

CFF+ THIS SECTION COMPUTLS "M" 0 "H" USING I HE FORMULAS 

GUI M=A( I —El 1 2) /W 113, N=A/W, WHERE “A" IS THE SEMIMAJOR AXIS OF 

cm THE ELLIPSOID. 


AM=AI ( I +(-ESQ) )/Wll>3 
AH= A/W 

Cl II THIS SECTION CONVERTS THE AZIKUIH OF I HE LINE TO RADIANS, THEN 
C Ki f COMPUTLS THE CURVATURE RADIUS USING THE FORMULA 
C FI I RA=MiN/(MiSINE( AZ) 1 1 2+N FC0SINE( AZ) s 12) 

AZ=AZ/180 I PI 

RA= AMI AN/( AMIDSHK AZ) * 1 2+AH li)COS( AZ) F-t 2) 

WRITE (9,105) RA 

105 FORMAT (’ CURVA1IJRE RADIUS =’,Fl2 2) 
cut this SECTION COMPUTES “U", THE ELLIPSOIDAL ARC DISTANCE, AND THIS 
01 I F UTM MAP DISTANCE USING THE F0RMIJ1 AS 
CFFF U=DC-F12-(H1-H2) I F2| 
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C'lk DA=SQRT( 12 I RA I- J 2 1 U/( 12 ! ( RA s-RI) f( IIA+K2) -U) ) , 

ClJ-i mM=OAKO 9990067-1 ( ( XI I 12 < X2 (-X2 1 1 2) /(> /RA>f2)> 

U-RlODtii 12-(H1-R2) ' 12 

BAA= 1 2 i RA l 121 lf/( 12 KRA+HI) r( RA1-H2) -0) 

DA=DSQRr< DAA) 

DH2=DA 1 ( REDUCT+ ( (XI i 12+X1 !X2hX2'*2) -6 ✓ HUf , 2) ) 

VRITls (9,107) BA, DM2 

107 FORMAT ( ’ ETA IPSO I DAL ARC DISTANCE (MX 15 23) =’,2X,F10 3,/,* UTM 
1 NAP DISTANCE -*,2X,F10 0,/) 

11' (JN WE I) CO 10 200 

MOP 

LI1D 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCOCCCCCCCCCCCCCCCCCCCCCCO 
G C 


G 

PROGRAM TO ADJUST LINE GENGHIS OF A QUADRILATERAL BY A LEAST 

C 

C 

SQUARES 

METHOD OF 

' AD JUS 1 DEN I 

WRITIEK BY 

PROOF SO'IFNCK FEB 1970 

c 

G 

THIS 

PROGRAM WAS WRITTEN 

SPIC 

rr ? rally 

FOR QUADR1LA I FRAL3, BUT 

c 

C 

WITH A FEW MODIFICATIONS IT 

WILL 

WORK FOR ANY TYPJ Of F 1GUIUS 

G 

G 

ALL CALCULATIONS 

AnE LONE IN 

DOUR LI' PRECISION IRE QUADRILATERAL 

G 

G 

MUSI BE 

ARRANGP I> 

AS SHOWN IN 

IRE 

ADJOINING PLOT OR AS SHOWN IN 

G 

C 

THE FIGURE BELOW 





C 

C 







C 

C 

Cl- 



— 

iB 


c 

G 

I 




I 


0 

C 

I 




I 

ANGLE ( CAD) = ALPHA 1 

c 

G 

I 




I 

ANGI F <DBA)= ALPHA 2 

G 

G 

I 




I 

ANGlf < Af B) = ALPHA 0 

c 

G 

I 




I 

ANGI I (BUG) -ALPHA 4 

c 

G 

I 




I 

ANGI V ( GAB) =Bf T A 1 

c 

C 

I 




I 

ANGIE (Rh( ) =BFTA 2 

0 

C 

I 




I 

ANGI r ( ACD) = BHT A 3 

G 

G 

I 




I 

ANGLI (BDA)=BFTA 4 

0 

C 

I 




I 

ARGIF (DAB) -GAMMA 1 

C 

G 

I 




I 

ANGLE (AM,)=GAMMA 2 

C 

C 

I 




I 

ANGLE (BCD) = GAMMA 3 

G 

C 

I 




I 

AIULI (GDA)= GAMMA 4 

G 

C 

I 




I 

ANGLE ( DAE) =1)1 IMA I 

G 

G 

I 


> 


1 

ATIG! E ( ABL) =1)1 LTA 2 

C 

C 

I 


E 


I 

AIIGLI' ( KGI ) = I)Fl I A 3 

c 

G 

I 




I 

ATM I I' < < Dt ) = DEI TA 4 

c 

C 

I 




I 

ANGLI ( BAG) = 1 H>'TA 1 

G 

G 

I 




I 

ANGI ]■ ( GBE) =T HI I A 2 

C 

0 

I 




I 

ANGIE ( RLE) = 1 HI I A 3 

G 

C 

I 




I 

ANGLE (ADE)=TH1;TA 4 

C 

G 

I 




r 

ANGIE (AT II) = PH I 1 

C 

C 

I 




i 

ANGIT (BEG) = PH I 2 

C 

C 

I 




i 

ANGIE (GID)=PH1 3 

C 

c 

I 




i 

ANGIE ( DLA) =PHI 4 

G 

G 

I 




i 


G 

G 

I 




i 


G 

G 

I 




i 


C 

G 

I 




i 


C 

r. 

n*- 



- 

.A 


G 


G G 


c the cornehs must be irannERFD as shown, with hie gen tf,r point. c 

G IF ANY, LETT Fill' D E THE RATA CARDS NEEDI 1) ARE AS FOl LOWS THE C 

G FIRS! GAR!) CAN CONTAIN ANY INFORMATION UF^IRH) WIIIU1 WILL RE G 

G PIUNlEI) AT HPi TOP OF HIE EXECUTED PORTION THF Si CONI' DATA CARD C 

G CON I A I NS "NTYPE" IN GOT WIN *7 "N I YI’F," IS A H UNDER INI ICR TT ELS C 

G HIE PRO GRAN WRAT J YPE Of ADJUSTMENT IS DGSIRT I) HIYTE=! fUAIf? C 

C AN AD.) US i MEN I OF A ttUADR l LATERAL WIIII DIAGONALS ONLY, NlYPI- = 2 C 

C HE A NS AD JUS l HEN T OF A OUADHILAI EltAL WIIII A CENTER POINT ONLY, C 

G HTYPE= 3 HEARS AD JUST KENT OP A ttUADItl LA If RAL WIIII DIAGONALS AND G 

C CmiER POINT CQNRINi D I IDS THIRD AND FOUR III CARDS CONI AIN IRE G 

C LINE LENOIRS IN KILOMF JERS INGLVDl 1 9 IN IDE OUADRILM ICIIAL IN AN G 

G F 10 0 FORMAT HIE Till HD GAUD IUJST CON IAIN IRE LFNGIiiS OF HIE G 

G FOI LOWING LINES IN IDE FOLLOWING OUDI’R AB. AG, AD, AE, DC I HE G 

C FOURTH CARD MIISI CON I AIN IRE TOLI OWING LINES BD. BE, GD. CE, G 

G I)E IN THE PROGRAM " N " IS IRE NUILBKR OF CONDI HONS PRESENl. G 

G C 

CCCCCCCCOCCCCCCCCCCCCCCCGCCCCCCCCCCCCCGCCOCCCOCOCCCCrCCCCCCCOCCCCCCCCCCC 
CY-1 + IHJS SLCI’ION READS INPUT AND INITIALIZES VAR! ABIT S 

IMPLICIT REAL-) 6 (A-H.K.O-Z) 

DIMENSION XADJI20) ,P!AMCG,4) ,MAD(6,4) ,K(3) ,AU(ft,4) , AQ(6,4) , AM(6,4) . 



165 


1 ASC 6 , 4) , W( 3) ,1>( 10) ,R( 10,3) ,CG(3,3) ,S( 10) ,WW(0) .CLOSE.! 3) ,7(5) ,WS(3) 
EQUIVALENCE (ARC 6, 2) , BEC) , CAR(6,3) ,CFJ» , (ARC6.4) , DEA) ,(AR< 1, 1) ,A) , 
1(AR( 1,2) ,B) , (ARC 1,3) ,0) ,(AR( 1 , 4) , I» , ( ARC 6 , I ) , AER) .CNN, II) , (PC 1) ,PAB 

2) ,cr(2) ,PBC) , C PC 3) , PCD) ,(P(4) ,PAD) , CPC 5) , PAC) , CPC 6) ,PBD) , (PC 7) , PAE 

3) , (FCB) , PDE) , ( PC 9) , PCE) , (PC 10) ,PDE) 

DATA R, CC/3Q I'O 1)0,910 DO/ 

READ (0,100) XA1)J 

100 FORMAL C20A4) 

READ (0,101) NTYPE 

101 FORMAT (IT, 1 1) 

P I = 3 14 159265,15090000 
N0=0 

cm NS ID = NUMBER OF SIDES OF FIGURE BEING ADJUSTED 

C-f I I NAN = NUMBER OF Dll' S' FRENI TYPES OF ANGLES IN FIGURE BEING ADIUSTFD, 
CHI IE All’ IIAS, 111- PAS, CAMMAS, ETC 
NSID=4 
NNN= 1 
NAN=3 


IF 

c n'i ypf: 

ro 

2) 

NNN=4 

IF 

( N'I YPE 

NE 

1) 

NAN=6 

N= 

IF 

1 

(N1YPE 

Eft 

3) 

N=3 


NL= 10 

WRI1E (9,100) XADJ 

READ (8,102) AB , AC , AD , AE , BO 

REAR (0,102) BD , BE , Cl) , CE , DE 

102 FORMA! C5F10 7) 

Will IF (9,103) AB, AC, A1), AE, BC, BD, BE, CD, CE, DE 

103 FORMAT (/,’ HEASURFR LINE LENC1HS ’,/,’ AB=’,F10 6,/,’ 4C=\F10.6, 
1/,’ AD= ’ , F 1 0 6,/,’ AE= ’ , F 1 0 6,/,’ BC=’,flO 6,/,’ BD=’,FlO 6,/,’ BE 
2= ’ ,F1<> 6,/,’ CD=*,MO 6,/,’ CE=’,I'IO 6,/,’ DE=’,riO 6) 

104 corn i hue 

Cl I I THIS SECTION COMPUTES EACH ANCI E OF THE FIGURE IN RADIANS AND IN 
Ci i I DEGREES, MINU1ES, AND SECONDS, BY USE OF 1 HE COS INF I AW 
IF ermPE ECl 2) GO TO 105 
ARC 1 , 1 ) = ANCLE ( AB , AB , BD) 

ARC 1 , 2 ) = ANCLEC AR , BC , AC ) 

ARC 1 , 3) = ANGLE ( BC, CD, BD) 

ARC 1 ,4) = ANCLEC Cl), AD, AC) 

ARC 2, 1 ) = ANGLF C AC , AD , CD) 

ARC 2, 2) = ANGLF, ( AB, BD, AD) 

ARC 2,3)= ANCLEC AC , BC, AB) 

ARC 2,4) = ANCI F C BD, CD, BC) 

ARC 3 , 1 ) = ANGI EC aR , AC , BC) 

ARC 3 , 2) = ANCI F( BC , Bl) , CD) 

ARC 3,3) = ANGI L( AC, CI), AD) 

ARC 3, 1) = ANGI EC AD, BD, AB) 

105 CONTINUE 

IF (N1YPE Eft 1) CO '10 106 
ARC 4, 1 ) = ANCLEC AD, AF , RF.) 

ARC 4,2)= ANCLEC AB.BF ,AF) 

ARC 4 ,3) = ANGI F ( BC, CE, BE) 

ARC 4,4) = ANGLF ( CD, DE, CE) 

ARC 5,1) = ANGI EC AB , AF , RF ) 

ARC 5 , 2) = ANCLEC 11E, BC, CE) 

ARC 5 , 3) = ANGLF ( CE, CD, DF) 

ARC 5, 4) = ANCLEC AD , 1)E , AE) 

ARC 6, 1) = ANCLEC AE, BE, AR) 

ARC 6 , 2) = ANCLEC BE, CE, BC) 

ARC 6,3) = ANGI EC CE, I)L, CD) 

ARC 6 , 1 ) = ANCLEC AE , 1)E , Al)) 

106 CONTINUE 
AROANCl EC AE,C£, AO 
BED- ANGI EC BE, DE, BD) 
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ACE= ANCLE( AC , CE, AE) 

CAE-ANGI E( AC , AE, CE) 

DI5E= ANGLE! BD , BE, 1>F) 

BDE= ANGLE! BI), 1)E, BE) 

DO 107 I=HNN, NAN 
DO 107 J=1,NSI1) 

Aft( I, J)=AR( I,J) 1180 /PI 
MAD( I, J)=Aft( I, J) 

API( I , J) = ( AQ( I , J) -MA1K l , J) ) *60 
MAIM I, J)=AM( I, J) 

107 AS{ I , ,T) = ( AM( I,J)-MA]TC 1, J) ) *60. 

IF (NO EG 0) VTU 1’E (9, 1 11) 

111 FORMAT (/,’ CALCULATED ANGLES (RADIANS) ’ , T40 , ’ CALCULATED ANGLES ( 

. 1DEG1U-FS) ’) 

IF (NO EG 1) WRITE (9,142) 

142 FORMAT (/,’ ABJUS1EI) ANCLES ( RADI ANS) T40 ,’ ADJUSTED ANGLES ( DEGR 
1EES) ’) 

IF (NTYPE Eft 1) WRITE (9,108) ( ( AIK I , J) ,MAD< I , J) ,MAH( I , J) ,AS( I, J 
1) , J=1,NSII)) , I = NNN, NAN) 

IF (N1YPE Eft 2) WRITE (9,109) ( ( AR( I , J) ,MAI>( I , J) , MAMC I , J) , AS( I , J 
1) , J= I ,NSID) , I-NNN, NAN) 

II' (N'lYPE Eft 3) W1U1E (9,110) ( ( Aft( I , J) , MAD( I , J) , MAM( I , J) , AS< I , J 
1) ,J= I ,NS1D) , I=NNN, NAN) 

100 FORMAT </,* GAMMA 1-4 ’, T40 ,’ GAMMA 1-4 ’,/, 4(1)20 9 , T40 , 14 , IX, 13 , IX 
1 , F7 3, /) , ' ALPHA 1-4 ’, T40 ,’ ALPHA 1-4 * ,/, 4( D20 9 , T40 , 14, IX, I J , IX, 
21' 7 3,/),’ BETA 1-4 ’,'140,' BETA 1-4 ’,/, 4(1)20 9 , T40 , 14, IX, 13, 1X.F7 
33,/) ) 

109 FORMAT (/,’ DELTA 1-4 ’ , T4 0 , ’ DEI TA 1-4 ’,/,4(D20 9 ,,T4G, 14, IX, 10, IX 
1,1-7 3,/),’ THETA 1—1 ’ ,'140, ’THETA 1-4 ’ ,/,l(D20 9 , T40 , 14 , IX, 13 , IX, 
2F7 3,/),’ PHI 1-4 ’ , no, ’ PHI 1-4' ’ ,/, 4(D20 9, T40, 14, IX, 13, JX.F7.3, 
3/) ) 

110 FORMA! (/,’ GAMMA 1-4 * , IM 0 , ’ GAMMA 1-4 ’,/, 4(1)20 9 , T40, 14, IX. 13, IX 
1 , F7 3,/),* ALPHA 1-4 T40 ALPHA 1-4 ’,/, 4(1)20 9 , '140, 14, IX, 13 , IX, 
21-7 3,/),’ BLTA'1-4 ’ , T40, ’ DEI A 1-4 ’,/,4(D20 9.T40, 14, IX, 13, IX.F7 
33,/),’ DELTA 1-4 ’,'140, ’DELTA 1-4 ’,/,4(B20 9 , T40, 14, IX, 13 , IX, F7 3 
I,/),’ THETA 1-4 ’ ,T40, ’THETA 1-4 ’,/, 4(1)20 9 , T40, 14, IX, 13, 1X.F 7 3, 
0/) , ’ PHI 1-4 ’ ,T40, ’ PHI 1-1 ’ , /, 4( D20 9 , T40 , 14 , IX, 13, IX, F7 3 , /) ) 

Ctu THIS SlCTIOIl CONTAINS THE CONDI! IONS AND COMPUTES 1J1E RESIDUALS 
0*1-!- BI'i'ORF ADIUSIHENT IN RADIANS AND SECONDS 
TF ( N 1 YFF NE 2) V( 1 ) -Ai B i-C+D-2 J-P I 
If (N'lVPE Eft 2) W( l)=AEB+BEG+CEim>EA-2 I PI 
IF (NTYPE Nt 3) CO 10 112 
W( 2) = AEC+BEG+AEB-2 -PI 
W( 3) =BED+BEC+CL l)-2 I PI 

112 CONTINUE 

DO 130 1 = 1 , N 

ISO WS( I)=W( 1) , 180 /P 1 1 3600 

IF (NO Eft 0) WRIIE (9,113) 

113 FORMA 1 (/,’ ANGIE CONDITION CLOSURES (RADIANS):’) 

IF (NO Fft 1) WRIIE (9,113) 

143 FORMAT (/, • ANGIE C0NDI1I0N CLOSURES Al'TER ADJUST RENT (RAD) ’) 
WRITE (9,1 14) ( £ , m I) , WS( I) , 1= I , NN) 

114 FORMAT (13, ’ . ’ , D 1 2 4,’ = ’,17 3,’"’) 

IF (NO Fft 1) GO TO 141 

DO 125 1=1, N 
125 WW( I ) = W( I ) 

Cl t I THIS SECTION CONDUITS THIS NORMALS TO EACH LINE IN KILOMETERS 
II- (N1YPE .lift 2) CO TO 120 
K AB= KORII I < AD , AI) , BC , A , B ) 

KCD K0RM1 ( CD, AI), BC, D, C) 

KBO=KOimi ( BC , AB, CD, B, C) 

KAI)=KOimi( AD,AP,CD, A,l» 

KA0=-K0RM2( AC, *B,BG,h,CD AO, D) 

KBD— K0RM21 BD, AD, AB, A, KG. CD, C) 
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IF (NTYPE NE 2) CO TO 115 

120 CONTINUE 

KAR= -ICORN3 ( AI3, AE,BE, AEB) 

KBC= -KOKM.H RC , BE, CF , nEC) 

kcd=-korm 3< on, cl, dh,ol») 

KA1)= -KORN'3( Al) , OF , AL , 1)EA) 

KAE= KORN 1 ( Ali , DE , BE , AR( 6 , 4) , ARC 6,1)) 

KRE= KORM l C RE, At , CE, AIK 0 , 1 > , ARC 6 , 2) ) 

KCF= KORN 1 ( CP , Kb , I)F , A1U 6 , 2) , AIK 6,3)) 

K[>E=KORMHDE,(P , AF, 411(6,3) ,AR(6,4)) 

115 CONTINUI 

II (N1YTL NE 3) CO TO 121 
KAB2 — KOilflOl AR, Ah , HP , Ah R) 

KB02 — KOIUKK HC, BE, (A , RLC) 

ICAG2=-K0RN.K AC , AE, ( L, ALC) 

I<AE2= KORN l ( AF , CL , liL , AFC , AEB) 

KBL2= KORN 1 ( B>' , Ali, CL, Ah B, RLC) 

KGE2= K0HII1 ( CL , BP , AL , 13PC , AGO 
KB1)3= -KOUi 1.5 ( ISO , BF , 15F , BFO) 

KBG3 = - KOIU 13 ( HC, BL.CF, RPC) 

KCI)3=-K01in.5( Cl), CE, I)L,CFO) 

KI)L3=KORni < 01, , (A , HI , CLO, BFO) 

KB1 3= K.01UT I ( 111 , 1)F, CP , 15L1), BEC) 

KCL3=kORN 1 ( CL , 15 L, I)L , 151- C , CLD) 

121 CONTINUE 
UltlTL (9,116) 

116 PORTIA 1 (/,’ NORNAI S' TO 1, IRES ( KM) ’) 

UR lir ( 9 , 1 1 V ) KA15 , KHO , KC1) , KA1) 

117 PORN AT KAR=’,MO 6,/,' KBC=’,F10 6,/,’ ICCD=’,F10 6,/,’ KAD= ’ , 

ll 1 (0 6) 

IP (I11YPE ME 2) UR I II (9,110) ICAC.KBl) 

110 1 0UI1AT (’ KAC=’,MO (>,/,’ KBu=’,F10 6) 

I F ( N 1 YPF Eft 2) UR 11 L (9,119) IC\E , KBF. , KCF , FOE 
119 FORMA I (’ KA6 = ’ , MO (>,/,’ KBL=’,F10 6,'',’ KCL=’,F10 6,/,’ KDF= ’ , 

11* 10 (i) 

IF (N1YPL Pft 3) URI’lfc (9,122) KA-52 , KBC2 , K402 , 1CAE2 , KIR 2 , ICCE2 , I03C3 
1 , KB 03 , ECO,! , Kill' 3 , 1 CP .5 , KDIS3 

122 POlUIAl (’ 1CAB2= ’ , 1' 10 <>,/,’ KRC2=’,FlO 6,/,’ ICAC2=’,P10 6,/,’ K>F2= 

1 , 1' 10 6,2, ’ KltP2=’,H0 (>,/,’ KGE2= ’ , 1' 1 0 IJ!C,)= ’ , I 10 6 , KB!) 

23- ’ , P'10 K('0 5 ’ , 1‘ 1 () 6,/,’ 111113=*, MO 6,/,’ KCE5=’,110 O,/,’ K 

31)L3= ’ , P 10 6) 

cm THIS SP.C I T ON CBNPUIES nil!. WMCIU of pack LINE ACCORDING TO liir. 

CUl OP SI RED WHICH f PUN, 1 ION 
PAR-UP KJHICAR) 

PRC=UFICHKR«) 

PCI)=UP K,K I ( CD) 

FAD- VP IGHl(AD) 

PAC=Wr 1 CHI (AC) 

1>RI>= UP 1 CHI (110) 

PAP = WHICH 1 ( Al ) 

PBF-WP ICHKRf) 

PCI =WLICH1(CF) 

PDE=WP I(,H ( ( 1)1 ) 

WIU 1L (9, 12 5) PAR, PBC , PCO , PAD, PAC , PRO, 1* \F , I’RE, PCE, PDE 

123 PORMAT INVERSE VLIOIlTS OF LINES' PAB-’.IO 3,2,’ PBC= * , TO 

1 3,/,’ 5*0= ’ ,F0 3,/, * PA1)= * ,FH 3,/, * 3* AC- ’,1,5 5,',’ PBD= ’ , 1 0 J,2, * 

2 PAP.= ’,PH 3,/,’ PBP = * , P 0 3,2,’ PGE= ’ , FO 3,/,’ PUP"’, HI 3) 

C IRIS SECTION INITIAL I/i-S HIE L0RRFLA1E MATRIX 

IP ( 111 YPL LQ 2) CO TO 131 
< CON 1)1 l I OR M.NIYPEM Oil 3, INI 11ALIZL 
R( 1 , 1 ) = 1 110/tCAB PAR 
R( 2 , 1 ) = I HO'KBl PRC 
R(5,l)-1 D02K<T)*PC0 
R( P , I ) = 1 D(V EaDi PAP 
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R(5,l)=l DO/KACIPAC 
R( 6 , 1 ) = 1 DO/KBDTPBD 

131 CONTINUE 

IF ( NTYPE NF 21 GO TO 132 
C-M f CONDITION #I,NTYP15=2, INITIALIZE 
R( 1 , 1 ) = 1 I10/KAB 1 PAB 
R( 2, 11 = I . DO/KBd PBC 
R( 3 , 11 = 1 DO^KCDi-PCI) 

R( 4 , 1 ) = 1 DO/lCAlt PAD 
R( 7, 1 ) - I DO/KAElPAE 
R( B , 1 ) = 1 DO/KBF ! PBE 
R( 9 , 11 = 1 DO/K CP. POE 
R( 10,11 = 1 I10/KDP Pi)E 

132 CONIINUE 

II- (NTYPE Nt- 3) CO TO 133 
C ’ 4. CC0N1) 1 IT Oil "2, N'l YP)S=3; INITIALIZE 
R< 1 , 2) = 1 I10/KAB2 - PAB 
RC2.21-1 D0/KBC2 1 PBC 
R(5,2)=l D0/KAC2 ’ PAG 
IU 7 , 21 = 1 R0/KAE2 ' PAF 
IU 8 , 2) = 1 . DO/IUtl 2 s-PBF 
R( 9 , 21 = 1 D0/ICCF2 1 PCF 
G* ^CONDITION d, N1 YJ’E-3, INITIALIZE 
R( 2, 3) = 1 U0/TCBC3 I PBC 
R( 3, 31 = 1 I10/KCD3 i PCD 
1U 6 , 3) = 1 D0/FBD3 ’ PBD 
R( 8, 3) = 1 D0/KBF3 PBE 
R( 9 , 3) = 1 D0/ICCL3 I PCF 
R( 1 0 , 3) = 1 DO/kDEO 1 PDE 

133 CONTINUE 

cii irirs sec now sets up the normal equations 
DO 300 L= 1 , NN 
DO 300 J= 1 , NIf 
DO 500 I- 1 , Nl 
S( 1 1 =R( I.L) ! R( I , Jl/P( I) 

500 CC{ L, I1-CC(L, Jl+S( II 

Cl ’ y THIS SECITOH CONSISTS OF A GAUSSIAN ELIMINATION PROCESS TO SOLVE 
CM ! HIE NORM \L EQUATIONS FOR T HI 1 ’ CORRELATES 
II- (N NE 1) CO 10 4 
IF< CC( ! , 1) EQ 0 1 GO TO 3 
IC( 11 = W< 1)/CC( 1,11 
GO TO 202 

3 CO TO 203 

4 NLLSSi=N- 1 

DO 13 1=1, MI ESS I 
BIC=ABS(CG( 1,111 
L= I 

I FLUS1= 1+1 
DO 6 I-IPLUSl.N 

IF (ABSICU I, 111 LF, BIG1 GO TO 6 
B !C- ABS( CC( 1,111 
1= I 

6 CON r I HUE 

IF (BIG NE 0 1 CO TO 0 
CO TO 203 

8 IF (L Eft II CO 10 II 
DO 10 J= 1 , N 
rtMP=CL(L, J) 

CC( L, J1 =CC( I, J) 

10 CC( I, J1=TEMF 
TEMP=W(I 1 

Wt LI -Vi II 
W( 1 1 =TFMP 

11 DO 13 J= I PLUS I , N 
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QUO 1=CC( J , I)/CO( 1,1) 

' DO 12 M=IPIUSJ,N 

12 CC( J , M) -GC( J , M) -QUO 1 ) CC( I , PD 

13 U( J) = W( J) -QUO 1 ' W( I ) 

IF ( CC( N , N) HF 0.) CO TO 15 
GO TO 203 

15 K(N)=W(N>/CC(N,H) 

I-N-l 

16 SUM-0 
1P1US1=I+1 

DO 17 J= I PLUS 1 , N 

17 SUM=S(JM+CG( 1, J) >K(J) 

K( i ) = ( m i ) -sun; /cc( i , i ) 

1- 1-1 

rr ( i (xi o) go ’io ic, 

202 WRI’lE (9,201) ( K< I) , 1=!,N) 

201 1‘Oltri-M (/,’ C0RRF1 ATES ’,/,3(D18 9,/),/) 

(.0 10 205 

203 WRITE (9,201) 

204 IORMA’1 (’ 1 IERRORM ,= = > IN CORRELATE MATRIX’) 

CO TO 999 

205 CON’ltNUE 
SUMVV= 0 

DO 121 1=1, PI 

121 SUMVV-SUMVV-J K( 1)1 WW( I) SI 01)12 

CP4 1 1 HIS SPOTION COMPUTES THE CORRECTIONS I'O EACH LINE IN MILLIMETERS 

IP (NTYPE l'O 3) CO 10 130 
VAR=K(N; 1’AH/KAB. 10 1 6 
VBC=K(H) ‘PBC/KBC. 10 •- 6 
VC1)= K( If) I PCIVKCDl 10 ' . 6 
VAD=K(I1) PAD 'KADI 10 i'6 

IP (NTYFl EQ I) VA(=K(N) "PAC/KACMO P'6 
IP ( N'l YPl t(i I) VB1)=K(N) '1 J B1)/KBD"10 . 6 
IF (K'lYl’E HK 2) CO 10 130 
VA1-’=K(N; .PAF/KhP 10 I 1 6 
VBl =K( N) PBF/KBL 10 ,6 

VCE= K( N ) PC E/KCK '10 ,16 
VDP -K(P1) iPDE/KDl- 10 16 

130 CONTINUE 

It (lriVPL KL H) GO '10 126 

VAB-PAB' (Ft. 1) /KABi Kl2)/ICAB2) HO t-'O 

VBC-PRC ( K( l)/KBCi K(2) /PR1C2 i-K( 0) /KBC3) PIO , s6 

VCD- PCI) iK( 1)/KCD+Ki3)/KCD3> PlO Pf6 

VAD-PADlIC( 1) /KAOS' lo . t6 

VAC- PAG ( KX 1 ) 'KAO i K< 2) /IC4C2) 1 10 "6 

VBD=PBI>,(K( 1 ) /KBbi-K( 3) / KBD3) MO P ‘■6 

VAF.= P AF K( 2) 'KAF2* 10 .16 

VP»P = PRP. 1 1 K( 2) /KBP’2 * K( 3)/KP lr 3) 1 10 P 1 6 

VCF-PCP < (ICC 2) / KL? 2-rl<( 3 >/KOfc 3) 110 io 

VDP-PDL 1 K(3) ✓KDFU ' 10 >40 

126 LON UNTIE 

WRI’lE (9,127) V \B , V HC , '*LD , VAU 

127 FORMA 1 (’ GQRRl'Xl lOilS ’10 LINES (PHD ’,/,’ V4B=’,F7 1,/,’ VBC=’,F7 
If,/,’ VG1)=’,F7 1,/,’ VA1)=’,F7 1) 

IF ( H I YPli ME 2) WHITE (9,12S) VAC, VBl) 

128 JORMA’l (’ VAC= ’ , P 7 l,/,’ VBD=’,1'7 I) 

IP (N’lYPI, KF I) WRIT!-' (9,129) VAI'j, V8E, VCE, VDE 

129 P0HP1AT ( ’ V4E-',P7 1,/,’ VBF = ’,F7 1 , ', ’ VCE=’,I'7 1,/,’ V1)F“ ’ , F7 I) 
(Nt* THIS SEC 1 1 OR COMPUTES A CHECK ON SUM VV, USING THE LINE Ll-HCnI 
Cl.* GORKI CHONS, AND WRITES SUM VV, I HE CHECK Oil SUM VV, AND S1CILA 

MJP1VV2- VAB^/2/PhBi VBC**2'PBPiVCI>** 2 PCU+ VAD* <2 'PAD 
! I- (NlYPF NF 2; SUMW2-SUP1VV21 VAC4-»2/ PACi- VBD . 2 PPD 
IP (UTiPE NF 1) SUPIV V2 : SUMVV2i VAE>:32'PAE+\. Br-fc.*2 TBP i\(’L ? PCI i-V 
II>»-**2^ PDE 
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AMU= !)SQET( SUMW2/N) 

WRITE (9,138) SUMVV,SUMVV2,AMU 

130 FORMAT (/,* SUM VV= * ,F9 . 3, /, ’ CHECK ON SUM VV= > , F9 3,/,’ SIGHA=’,F 
17 3,’ MM/LINE') 

C-W* THIS SECTION ADDS THE CORRECTIONS TO EACH LINE 
AB= AB+VAB' 1 OH-6 
BC=BC+VBC!1 OU-6 
CI)=CIH VCD 1 1 0D-O 
AD= AD+ VAD T I OD-6 


IF 

( NTYPE 

NE 

2) 

AC=AC+V4C1:1 OD-6 

IF 

( N'l YPE 

NL 

2) 

Bl)= BD+VBD F 1 . OD-6 

IF 

(NTYPE 

Ed 

I) 

CO TO 134 


AE=AE+VAEI 1 OD-6 
BE=BE+VHF I 1 OD-6 
CE=CE+VCEl 1 OD-6 
DE= DE+VDE 1 I. OD-6 

134 CONTINUE 

WRITE (9,135) AB , BC , CD , AD 

135 FORMAT (/,’ ADJUSTED LINE LENGTHS (KM) AB=\F10 6,/,’ BC=’,F 

110 6,/,’ CD= ’ , I r 1 0 6,/,’ AD=’,F10.6> 

IF ( NTYPE NE 2) UIU1E (9,136) AC.BD 

136 FORMAT (’ AC=’,MO 6,/,’ BD=’,F10 6) 

IF (NTYPE NE I) WRITE (9,137) AL, BE, CE, DE 

137 FORMAT (’ AE=’,FIO 6,/,’ BE=’,F10 6,/,’ CE=’,F10 6,/,’ DE=’,F10 6) 
CN 4 !• THIS SECTION COMI’UIFS A CHECK ON 'I HE LINE LENGTH CORRECTIONS 

CLOS= ( VAB/KAB+VBC/KBC I-VCD/KCD+ VAD/KAD) . I.OD-G 

IF ( NTYPE .NL 2) CIOS-CI OSK VAC/KAC+VBD/KBD) I I OD-6 

It (N'lYPt FQ 2) CLOS=CLOS+(VAE/ICAL+VBE/KBEt-VCF/KCE+VDL/'lCDE) I 1 OD-6 

Cl OSE( 1)=CI0S-W( 1) 

IF ( N TYPE NL 3) GO TO 141 

CL0S=(VAB/KAB2+VBC/KBC2+VAC/KAC2+VAE/KAF2i-VBL/KCE2+VCE'KCE2) ! 1 D-6 
CLOSER 2) = Cl ()S-W( 2) 

CLOS=( VBC/-KBC3h\?CI)/kCI)3+VBl)/KBD3+VBE/I<Bt3i-VCL/KCE3+VDE/KDE3) < 1 D-6 
CLOSF( 3) =CLOS-W( 3) 

141 CONTINUE 

WRUE (9, 139) 

139 tORMA’l (/,’ CHECK OF C0RKLCT10NS ’) 

WRUE (9,140) ( l ,GIOSE( 1) , 1=1, N) 

140 FORMAT ( 13, ’ * ,1)12 5) 

Cl U THIS SECTION COES BACK AND RECOMPUTES EACH ANCLE, AND THE CONDI- 
Cm TION RESIDUALS AFIL’R ADJUSTMENT 
N0= 1 

GO 10 10 F 

144 CONTINUE 

Cl I I THIS SECTION COMPUTES 'INF TRIANGLE CLOSURES AFTER ADJUSTMENT 
It (NIYPE F(1 2) CO TO 145 

Z( 1 ) = ( A&( 1 , 1 ) +Aft( 1 , 2) t-AQ( 1 , 3) +A.Q( 1,-1) -360 ) 1 3600 
Z( 2) = ( Aft( 3 , 3) t Aft( 2 , 1) -A(i( 2,2) -A(i( 3 , 1) ) 3600 
Z(3)=( A«(2,3) t-A(i( 3 , 2) -A(i( 3 , F)-AO(2, 1) ) <3600. 

145 CONTINUE 

It (NTYPE E(i 1) GO TO 116 

7( 4) - ( A(I( 6,1) 6 , 2) -t Aft( 6 , 8 M A0( 6 ,4) -360 ) -3600 

Z( 5 ) = ( A(i( 5 , 1 ) 1 Att( 5 , 2) + Ad( 5 , 3) -rAGH 5,4) +A<1( 1 , 1 U Att( 4 , 2 ) + AQ( 4 , 3 ) +AQ( 4 
1,4) -360 ) 1 3600 

146 (ONTINUE 
WRITE (9,147) 

147 tORMA’l (/,’ ’1 III ANCLE CONDITION CLOSURES ’) 

1 1 = 4 

IF (N’iYPE NE 2) 1 1= I 


1 1 =5 

IF (NTYPE f'M 1) LI =3 
WRITE (9,118) CZ( I) , r=ir,LL) 
14» tOHMAT 09 3, ’ "* ) 

999 STOP 
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1-ND 

C>-il FUNCTION ANGLE CONFUTES AN ANGLE, GIVEN THREE LINE LENGTHS BY 
CM l- USING TIIL COSINE IAN 
FUNCTION ANGLE! X, Y, 7.) 

DOUUIE I 1 HI' LIS ION X, Y,Z,DAC03 

ANGI E= I)ACO_»C C X**2+Y**2~Z**2) /( 2 *X*Y) ) 

RITURN 

HID 

G. + . FUNGI IONS KOKTI1, K0HM2, AND K0KM3 COMPUTE NORMALS iO THE LINES. 

I- (JUG I ION FORM I C V , V, X, Y, Z) 

DOUBLE PRI CIS (ON V, V/, X, Y, Z, DCOS, DS IN 

KORMl = 1 J)OP( ( W I OCOSl Y) - V) /( V CWi DS I N( Y) ) +( X‘ ULOSI Z) -V) / ( VI XJ US INC Z) 
1 ) ) 

RET URN 
FND 

I-UNLl ION K01U12C T , U , V, W, X, Y, 7) 

DOUR! !• PRECISION T , U. V, V. X. Y, Z.DSIN 

KORM2= 1 DO/i 1/C U ! V ITISINC W) I i- l’/C X Y DSINC7))) 

HI I URN 
INI) 

I' UNC 1 I ON KORN AC W, X, Y, 7) 

ROUIN E PRECISION U,X Y,Z,DSIN 
K0RM3= i 1IO/C W/CX. Y. Db INC /.) ) ) 

RE I URN 
END 

C-^TT I UNCI ION UEIGIir CoMPUIES THE WEIGHT OF A LINE, GIVEN ITS LfcNGTII, 
C*** US INC, A DESIRH) WEIGHTING I UNCI ION 
f UNC. I ION WE 1 GlirC I) ) 

DOU1HK PRI* G IS ION I) 

WLICHT^D/R 
RE I URN 
END 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


c C 

G PROGRAM TO COMPUTE IITM PLAN]’,, GEOGRAPHICAL, AND USlt COORDIN- C 

G AILS OF A POIN1', WRITTEN BY BRUCE SCHENCIC, APRIL, 1978. G 

C C 

C PROGRAM COMPUTES PLANE COORDINATES OF UNKNOWN POINT FROM C 

G BASELINE OF I VO KNOWN PO INI'S AND DISTANCES FROM EACH OF THFSE C 

C POIN'IS PO UNICNOVN POINT IF ONLY ONE POINT OF BASELINE IS KNOWN, C 

G APPROXIMATE GOORDINAJES OF SECOND BASELINE POINT ARE SUPPLIED, G 

G AND 'IIIF A71MUIN OF THE BASELINE IS CONPUl’FD BY USING THIS AZI- C 

G MUIR AND TUP KNOWN DISTANCE, EKACT COORD IN A11S 01* THE SECOND 0 

C BASELINE P0IN1 IN THE SYS l EM ARE COMPUTED, AND THE I HOG RAII PRO- C 

C CEEDS BY USING TIIFSF C00RD1NAIFS C 

C INPUT 10 PROGRAM IS AS FOLLOWS C 

G CARD *1 HEADER CARD WHICH WILL BE PRINTED AT TOP OF OUTPUT G 

G CARD *2 COIS 1-10, BASE POINT *1 C 

G COIS 17-32, BASE POINT *2 0 

G COLS 33-10? UNKNOWN POINT C 

C CARD *3 COL 7, "N1 VPF “ , IF N i YPE= 1 , COORDINATES OF BASF 0 

G POINT ^-2 ARE APPROXIMATE, IF NTYPE=2, COORDINATES OF BASE POINT G 

O *2 ARE KNOWN , AND WILL NOi BE COMPUTFD C 

G COL 16, " ISIONY”, + IF UNKNOWN POINT IS ABOVE BASE- C 

C I INF, - IF UNKNOWN POINT IS BELOW BASELINE C 

C CARD *4 COLS i-IO, 11 DBL 11 , IITM PLANE DISTANCE FROM BASE G 

G POINT *1 10 BASF POINT *2, F10 3 C 

C COIS n-20, " XB1 “ , HTM PLANE X COORDINATE OF BASE C 

C POINT * 1 , F10 3 C 

C COLS 21-30, " YB 1 ", HTM PLANE Y COORDINATE OF BASE C 

C POINT *i, FIO 3 C 

C COIS 31-40, " XB2 “ , HIM PLANE X COORDINATE OF BASE G 

C POINT #2, no 3 (.; 

G COLS 41-50, “YB2 " , HTM PLANE Y COORD I NAIL OF BASE G 

G POINT *2, FIO 3 C 

G CARD -5 COIS 1-10, “DBIP", HTM PLANE DISTANCE FROM BASE C 

G P01N1 //I TO UNKNOWN POINT, FIO 3. G 

C COLS 11-20, "DB2P 11 , IITM PLANE DJS1ANGE FROM BASE G 

C POINT s2 TO UNKNOWN POINT, FIO 3 C 

C CARD »6 COIS 1-3 , 11 1 GMDeO “ , LONGITUDE (DEG ) OF CENTRAL C 

G MERIDIAN OF ZONE, 13 C 

C GO'S &-<>, “ I C WI’IIN " , LONGITUDE (MIN ) OF CENTRAL C 

G MERIDIAN OF ZONE, 12 G 

0 COIS 8-9, "ICMSEG", LONG I 1UDE (SEC ) OF CENTRAL G 

0 MERIDIAN OF ZONE, 12 G 

G COLS 11-20, “OFFSET’', X COORDINATE IN METFRS OF G 

G CENTRAL MERIDIAN OF ZONE, FIO 3 C 

G CARD *7 COIS 1- 0, "H( 1 ) ” , ELEVA1 ION IN METERS OF BASE C 

C POINI -1, F8 3 G 

C COIS 9-16, ”H( 2) ” , ELEVATION IN METERS OF BASL C 

G POINT -2, F8 3 G 

C COES 17-21, “HO)", ELEVATION IN MHfcBS OF UNKNOWN C 

C POINT, F8.3 “ G 


0 OUTPUT CONSISTS OF THE FOU OWING- C 

C 1 THE HFADLR C 

G 2 THE BASE!. INF UstI) IN l HE COMPUTATIONS G 

C 3 THE HTM PLANE DISTANCES INPUT TO THE PROGRAM G 

C 4 1HL X S Y PLANE COORDINATES OF EACH l'OINI G 

G 5 THE GEOGRAPHICAL COORDINATES OF EACH POINT G 

C 6 THE CURVATURE RADIUS OF THE PRIME VERTICAL 0 

C 7 THE USR COORDINATES OF EACH POINT G 

G 0 I HE SPATIAL CHORD DISTANCES BETWEEN EACH PAIR OF PO INI'S C 

G CALCULATED PROM THE USR COORD I N A1ES OF EACH POINT G 

C G 


LCCCCCCCCCCCGCCCCCCCGCGCCOCCCCCCCCCCCCeCCCCCCCCCOCCGGOCCCCT CCCCCCCCCCCCC 



CM-* THIS SECTION INITIALIZES VARIABLES AND READS INPUT 
IMPLICIT REAL! t> (A-H.O-Z) 

DIMENSION XA( 20) ,I>0INT(4) ,BASEi(4) ,BTSE2<4) ,11(3) 

DATA XDIFF/IO OD-3 1/, A/637B206 4D0/.E2/0 00676865800/ 

DATA lYPOS/’+’Z, IYNFG/’-’/ 

PI=3 14I5926535898D00 
E4=F2I .2 
E6=E2! (-6 
READ (8,100) XA 
100 1' ORMAN (20A4) 

MUTE (9,100) XA 
READ (8,111) BASE1 .BASE2, POINT 
111 FORMAT ( 4A4, 4A4, 4A4) 

READ (0,106) N1YPE, ISICNY 

106 FORMAT ( I?, 1 1 , TI6 , Al) 

READ (0,107) DDL , XB 1 , YB 1 , XB2 , YB2 

107 FORMAT (5F10 3) 

HEAD (8,108) DB1P , 1)B2P 

100 FORMAT (2U0 3) 

RFAD (8,101) ICMDl'C, IGMMIN, I CM3EC , OFFSET 

101 FORMAT ( 13, IX, 12, IX, 12, IX, F10 3) 

RFAD (8,113) H( l ) , H( 2) , H( 3) 

113 FORMAT ( 3F8 3) 

WRITE (9,119) RASE l , BASE2 

119 FORMAT (’ BASE LINK FOR COMPUTATIONS IS’ , 4A4, ’TO’ ,4A4) 

WRITE (9, 130) BASF1.BASE2, DDL, BASE l . POINT, DBIP, 1IASE2, POINT, DB2P 
130 FORMAT (/,’ HIM PLANE DISTANCES (II) * , / , 4A1, ’TO’ ,4 A4, ’ = ’ , F10 3,/, 4 
IA4 , ’TO' , 4A4, ’ = ’ , F'10 3, / , 4 A4 , ’ TO ’ , 4A4, ’ = ’ , F 10 3) 

CN1 THIS SECTION COMPUTES THE X 8 Y PLANE COORD I NAILS OF BASF POINT #2 
1)XX=XB2-XB1 
DYY=YB2-YB1 

IF (NIYPE Eft 2) GO TO 109 
A7BASI- = DAT AN ( DXX/DYY) 

11- (A7BASE .LT 0 ) A/BASE- AZBASE t-P 1 
XR2=XB1+1)B1 IDSIN(AZBASIL) 

YB2= YB1 i-DBL t DOOS( AZBASE) 

DXX= XB2-XB I 


1)YY= Y152-YB 1 
109 CONT INUE 

WRIJI (9,117) 

117 FORMA 1 (/, ’ COORDINATES ON HIM PLANE’ ) 

WRITE (9,110) B AS’F I , XB 1 , B AS L 1 , YB 1 , B ASE2 , XB2 , B ASL2 , YB2 

nnFonriAi c ”X” coordinate of* , 444 , • = ’ ,f 12 j,/ t ■ * ’Y” coordinate 
10F’ ,4A4, ’ = ’ ,1-12 3,/, ’ ’’X” COORDI NAI’E OF’ , 4A4 , ’ = ’ , F 12 3, /, ’ >’Y” 
2 COORD I HATE OF • , 4 A 1 , • = ’ , F 1 2 3 ) 

Cm THIS SECTION COMPUII-S THE PLANE COORDINATES 01- THE UNKNOWN POINT. 
XPP= ( DlilP ' . 2-DR2V •, • 2+DBI I 12) /( 2 i DBL) 


YPP= DSOIO ( DBIP I ! 2-XPP ' 12) 

IF ( ISICNY Ed I YU EC) YPP=-YPP 
X3=XBI i-XIT DXX/DBL-YPP I DYY/DBL 
Y3= YB 1+XPP . DYY/DBL t-YPP I RXXZDBL 
WRITI- (9,110) POINT, X3,P0IN1,Y3 

110 FORMAT (> ’’X” COORDINAIE OF * ,4A4, ’ = * ,B 12 3,/,’ ”Y” COORDINATE 
10F’ , 4A4 , ’=’ ,F 12 3) 

C-S.-l- THIS LOOP COMPUlES GLOCRAPHICAL AND USR COORDINATES I- OR EACH POINT 


DO 1 16 ,1=1,3 
IF ( ) l-’ft 1 ) xxx=xni 
IF ( I Eft 1) YYY= YB 1 
IF ( J Eft "2) XXX=XB2 
IF (J EQ 2) YYY= YB2 
IF (I Eft 3) XXX=X3 
IF (I Eft 3) YYY=Y3 

C*** THIS SECTION INITIALIZES VARIABLES USED IN THE ITERATION PROCESS. 
LMER'-Pl/IBO 1 ( ICMDEGi KT1MIN/60. + ICHSEC/3600 ) 
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DX= XXX- OFFSET 

Cl.= ( YYY/0 99996666667D0+2249134 918D0)/A 
C 1 = l 1)0-0 25D0KF2-3 DO/64 DO IE4-5 DO/256 L0-.-E6 
02=3 DO/a IXHE2+3 D0/32.D0IE4+45 DO/1O21D01E6 
03=15 DO/256 DO ! K4 1 45 DO/ 102 4 D0IE6 
04=35 1)0/3072 DO I E6 
PH I = CL/C 1 
1 = 0 

C*4 i= iHIS SECT ION IS THE ITERATION LOOP 10 FIND PHI’, THE FG0FP01NT LATITUDE. 

102 CONTINUE 

1= I T 1 

C0UR=-C2fI)SIN(2 1 PHI) +C3 ' DSIN( 4. f-PHI)~C4 <-DSIN( 6 TPHI) 

CLi=CL-CORR 

RHI = GI 1/Cl 

DIFI = DAI!SCRHI-PHI) 

PHI=HHI 

IF (DII'F LE XDIFF) GO TO 103 
GO TO 102 

103 CONTINUE 

Cl K4 THIS SECTION C0IIPU1TS THE GEOGRAPHICAL COORDINATES, PHI £ L\MDA. 

W= DSQim 1 D0-E2 1 1)SIN( PHI) I 1-2) 

AM= A i ( 1 -E2)/VM3 
AN= A/W 

DLAMDA=DX/( AN-fDCOS(PHl) -0 99996666667D0) -( 1 D0/(6 I ANT 4 31 DCOSI PHI) 

1) ) ' C 1 +2. IDTANCPHI) 112) I ( DX/O. 99999666667D0) I 13 

PHI = PHI-DTANC PHI ) / ( 2 I AM I- AIT) KDX/O 99996O666O7D0) ( 1 2+I)rAN( PHI ) /( 24 
1 1 AMlANkK3)/(5 +3 ‘DIAN(PHI) 12) '(DX/O 99996666667D0) ■ 1 4 
DEG=PIII I ino./pi 
II)FG- IDINTt DEG) 

AMIN= < I)FG- IDEGj 160. 

III! N= IDINIT AMIN) 

SEC=( AfllN- ININ) 160 
ALANDA= CMEll-DLANDA 
DEG= ALAIIDAi 1R0 /PI 

I DEG 1= ID I NIT 1)FG) 

AMI H= ( DEG- IDFGl ) '60 
IMINl - IDINl’CAMIN) 

SLC1 = ( AMIN- 1 MINI ) 1-60 

II (J Eft 1) WRITE (9,112) EASE 1 

IF ( I Eft 2) Will IF (9,112) BASES 

TF (I Pft 3) Will IE (9,112) POINT 

112 FORMAT (/, ’ GEOGRAPHICAL COORDINATES OF’ ,444) 

IF ( ) Fft 3) OKI TF (9,104) 1 

104 FORMAT (’ NUMUf ft OF ITERATIONS TO MND PHI’’ ’,10) 

Will i E (9,105) PHI, I DEC, I MI N , S r, ’C , AL AM) A , IDEG1 , IM1H1.SEC1 

105 FORflAT (’ PHI ( RADI ANS) = ’ , D 17. U , GX, ’ PH l (DEC ,MIN , SEC ) = ’,I4 

1, IX. 12, 1X.F0 5,/, ’ I At IDA ( RADI ANS) D17 1 1 , OX, ’ LATflJA (DEC .Mill. ,S 
21 C )=’ 14 \Y 12 IX FO 5) 

Cl I I THIS SFCT ION ’computes THI' USIl COORDINATES 
W-DS01VKI D0-E2 1 DS I I'K i'HI ) 12) 

AN- A/W 

X= ( AN+H( J) ) , D(’OS( PHI ) ' DCOS( A1 AMDA) 

Y=-( ANt-H(J) ) (I)COS(PHI) 1 DSIfK ALAPIDA) 


7= 

(AN* 

( 1 - 

E2) 

i H( J) ) 

' DSIIK PHI) 

II' 

( J 

Eft. 

1) 

AN I = AN 

II' 

(3 

Eft 

2) 

AN2= AN 

II' 

( J 

Eft 

1) 

XXI) 1 = 

X 

II- 

( J 

1'tt 

1) 

YY15 1 - 

Y 

IF 

( J 

LG 

I) 

Z7B1- 

/ 

IF 

( J 

Eft 

2) 

XXIS2- 

X 

ir 

( J 

1 ft 

2) 

YYB2= 

Y 

ii 

( J 

Eft 

2) 

7ZP.2= 

/ 

CONTINUE “ 




WIv 

i rii 

(9, i 

14) 

BASE 1 

, AN1.XXBJ .YYBl.ZZBl 
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WRITE (9,114) BASF2 , AN2 , XXB2 , YYB2 , ZZB2 
VfRl'lP (9,114) POINT, AN,X,Y,Z 

114 FORMAT (/,’ UNIVERSAL SPACE RECTANCUI .AR COORD I KATES 0F’,4A4,/,’ CU 
1RVA1URE RADIUS OF PIUIIE VERTICAL, »=’,H3 3,/,’ X=’,F13 3,/,’ Y= ’ , 
2FI3 3,/, ’ Z=’ , F 13 3) 

Cvl f THIS St CPI OH COMPUTES IDE SPATIAL CHORD DISTANCE BETWEEN EACH PAIR 
CiS-K OF POINTS FROM THE USIl COORDINATES OF EACH POIltl 
I)DXX=XXB1-XXB2 
DDYY= YYTI1-YYR2 
1)D7Z=ZZB1-ZZD2 

di>xxi=x-xxri 

I)DYY1 = Y-YYB1 
1>D7Z1=Z-7ZRL 
DDXX2=X-XXB2 
DDYY2= Y— YYD2 
I)D/22= Z— ZZB2 

D I RL= DsORT ( DOXX 1 * 1 2 hDDYY >• . 2+DD7Z k *2) 

DIRIP=1)SQR’I(DDXX1 r'2+DDYYN -2FDDZZ1 12) 

I) IB2P=1)SQUT( DDXX2 ! . 2 MH1YY2 k -2 t-DDZZ2 ■- r-2) 

WRITE (9, 115) HASP 1 , B/>SE2, DIBLJ3ASE1 , POINT, 1) IB1P, I1ASE2, POINT, DID2P 

115 FORMAT (/,’ SPATIAL ( UORD DISTANCE OF’ ,4A4, ’TO* ,4A4, ’ = ’ ,HO 3,/,’ 
ISPAIIAI CHORD DISTANCE 01 ’ ,4A4, ’TO’ ,4A4, ’ = ’ ,F 10 3,/, ’ SPATIAL CnOIl 
21) DISTANCE OF ’ , 4A1 , ’ TO ’ , 4A 1> , ' - ’ , F J 0 3) 

999 S10P 
LN1) 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccclcccccc 

C Q 

C PROGRAM TO MAKE A SPATIAL INTERSECTION AND COMPUTE THE LAT- C 

C TI'IUDE, LONGITUDE, AND ELEVATION OK THE POINT IN QUASI! OH C 

C WRITTEN RY BRUCE SCHENCIC, MARCH 1970 C 

c c 

C PROGRAM TAKES THE UNIVERSAL SPACE RECTANGULAR COORDINATES OF C 

C KNOWN POINTS, ALONC WITH THE APPROXIMATE COORDINATE-. OF THE C 

C POINT IN QUESTION, AND USES AN ITERATIVE PROCESS TO SOLVE FOR 0 

C THE USR COORDINATES OF THE UNKNOWN POINT THESE COORDINATES, C 

C ALONG WITH AN APPROXIMATE LAI IT UDE AND CURVAIUIIE RADIUS IN THE C 

C PRIME VERT I GAT , ARE THEN USED 10 COMPUTE THE LATH UDE, LONOI- C 

C TUDE, AND ELEVATION OF THE POINT C 

C INPUT CARD !■ ORIIATS ARK AS FOLLOWS C 

C CARD H HEADER CARD WHICH WILL BE PRINTED AT TOP 01- OUTPUT C 

C CARD *2 COLS 0-4, "N", NUMBER OF KNOWN POINTS 1NPUP, 12 C 

C CARD *3-*Ni-2. COLS 1-10, DISTANCE IN KM FROM KNOWN POINI TO C 

C UNKNOWN POINT, FI 0.6. COLS II- 10, X, Y, Z L00RD1NULS OF KNOWN C 

C POINT, OF 10 6 C 

C CARD *Nl 0 COLS. 11-40, APPROXIMATE X, Y, Z COORDINATES 01 C 

C UNKOWN POINT, 0F13 6 L 

'C CARD ^Nf4 COLS 1-12; “RN“, RADIUS IN PRIME VLR1ICAL, FI2 6 G 

C COIS 14-15, APPROXIMAIF, LATITUDE (DEG ) OF UNKNOWN POINI, 12 C 

G COLS 17-10; APPROXIMATE LAT I I UDE (MIN ) OF UNKNOWN POINT, 12 G 

C COLS. 20-26, APPROXIMATE LAI 1 1 UDE (SEC ) OF UNKNOWN POINI, F7 4 C 

C OUTPUT CONS IS IS OF HEADER ON CARD -1, X, Y, Z COORDINATE--. C 

C CAI CULATFI) BY NEXT TO LAST ITLHA1 ION, X, Y, / LOOK!) 5 NAILS CALCU- C 
C I AT ED BY LAST I1ERA1I0N, NUMBER Of ITTRAT IONS IE1U0RIILI), LAI I- C 

C TUDE, LONGITUDE, AND ELEVATIONS 01- POINT CALCULATED I- ROM EAC1I OF C 

C THE THREE C00RDINA1ES C 

c c 

CCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCrCCCCCCCCCCCCCCCLCCCCCCCOCCCCCCCCCCCC 
Cf-'f THIS SEC I ION INITIALIZES VARIABLES AND READS 1NPUI 
IfIPI I GIT REAL 1 6 (A-ILO-Z) 

DIMENSION IK 5 1 , X( 5 ) , Y( 5 ) , Z( 5 ) ,XX(20) , Q(5) , V(o) ,CC(5,5) 

NN=0 

MM=0 

P 1 = 3 14159265350001)00 
READ (8,101) XX 

101 ronriAT (20A4) 

READ (8,102) N 

102 FORMAT (2X, 12) 

READ (8,100) (])( 1) ,X( I) ,Y( I) ,Z( I) , 1=1, N) 

100 FORMA 1 ( F10 6.3F13 6) 

WRITE (9,101) XX 
READ (8,108) XBAR, YBAR, ZBAR 
1 08 FORMAT ( T I 1 , 3F 1 3 6 ) 

ON. K f- THIS SEC I ION SKIS UP X, Y, Z MATRIX 
ie3 CONTINUE 

DO 101- 1=1, N 

104 W< I) = C (X( I) -XBAR) IX( !)+( Y( I) -YBAR) 1 Y( I )+(./( I)-ZBAR)-iZ( I) )-D( 1)312 
DO 105 1=1, N 

105 CG( 1 , 1 ) = ( X( I ) -XBAR) 

DO 106 1=1, N 

106 CC( 1,2) = (Y( I)- YBAR) 

DO 107 1=1, H 

107 ( G( I,3)=(Z( D-ZBAR) 

C-Eli THIS SEC I ION CONSIST'S OF A GAUSSIAN ELIMINATION PROCLSS TO SOLVE 
C. I ' I HE MATRIX l OR X, Y, Z 
1F(N NE 1) GO TO 4 
IF(CC( 1,1) EQ 0 ) GO IO 3 
Q( I)=W( 1)/CC( 1,1) 

GO TO 202 
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3 GO TO 203 

4 NLESS1=N-1 

DO 13 1= 1 , NLESS1 
BIG=ARS(CC( 1,13) 

L= I 

I PLUS 1= 1+ 1 
DO 6 J= IPLUSt , N 

II- ( ABS(CC(J, I) ) LE BIG) GO TO 6 
BIG=ABS(CC( J, I)) 

L= J 

6 CONTINUE 

IF (BIG HE. 0.) GO TO 8 
GO 10 203 

8 IF (L .E(i I) GO TO If 
DO 10 J=1,H 
TEMP=CC(L, J) 

GG(L, J)=CG( I, J) 

10 CG( I,,J)=1EMP 
TENP=W( L) 

W(L)~W( I) 

WC I)=TEMP 

11 DO 13 J= IPLUSl.N 
OUO'I^GGC I, I)/CC( I, I) 

DO 12 H= I PLUS 1 , N 

12 GC( J, M) =GG( J , II) -ftUOTT CG( I , M) 

13 W( J)=W( J)-QUOTiW( I) 

IF <CC(N,N) .HE. 0.) GO TO 15 
GO TO 203 

15 U(N)=W(N)/CC(N,N) 

I = N- 1 

16 sum=o 

IPLUS1=I+1 
DO 17 )= 1PLUS1 ,N 

17 SUM=SUMi-CG( I, J) IQ(J) 

0( I ) = ( W( I ) -SIM) /CC( 1,1) 

1= 1-1 

If (I Or 0) CO TO 16 

202 CONTINUE 

201 FORMAT (/, * COORDINATES ’,/,* X= ’ ,F15.7,/, ’ Y=’,F15 7,/,’ Z=’,F15. 
17,/) 

GO TO 205 

203 Will TL ( 9 , 204) 

204 I-ORM/L r ( • 11 J ERROR. 1 . = = > IN CORRELATE MATRIX’ ) 

GO TO 999 

cm THIS SECTION CHECKS IF THE UNKNOWN X, Y, Z HAVE CONVERGED IF NOT 
G4 i f DO HER AT I ON AGAIN, OTHERWISE CO ON 

205 CONTI NUI 

IF (NN EQ I) CO TO 899 

IF ( ABS(0( D-XB4R) LT. 0 0000001 AND ABS( 0( 2) -YB4R) LT 0 0000 
1001 AM) ABS( Of 3) -ZB All) LT 0.0000001) NN~ 1 
II- (MM CT 1000) NIf= 1 

II- (NN EO 1) Will IE (9,201) ( CK 1) , 1= 1 , N) 

MM= MM+ 1 

XB4R=(Q< 1 ) H XBAR) /2. 

YBAR= ( Q( 2) + YBAR) /2 
7BAR= ( Q( 3) +ZBAR) /2. 

CO TO 103 

899 WRITE (9,201) ((WI),I=1,N) 

WHITE (9,120) I1M 

120 FORMAT ( ’ NUMBER OF ITERATIONS. ’ , 15) 

READ (8,110) nil, I DEG, I I1IN, SEC 
110 FORMAT (F12 6 , IX, 12, IX, 12, IX, F7 4) 
cm THIS SECTION COMP DIES PHI, LAMDA, AND THE ELEVATIONS FROM EACH OF 
C’** I HI-’ COORD I NAILS 
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PHI = ( SEC/36 00 +IM1N/60 + IDEG) i PI/1G0 
ALAMDA= DATAN2 ( Q( 1) ,(1(2) ) 

HBAR= ft( I) /( DCOS( PHI) IDSIN(ALAMDA) )-RN 

PHI=DATAN( ( ( 6378. 2064D0H H8AR) /( 6356 5838D0+HBAID ) 1 f2 'Q( 3) * DSIK( ALA 
1MDA)/(1( I) ) 

HX= ( tt( 1 ) /( DCOS (PHI) J)S I N ( ALAND A) ) ) -RN 
HY=(d(2)/(DC0S(PHI) I- DCOS ( ALAMDA) ) )- RN 

HZ=(Q(3)/DSIN(PHI) )— (RN K6356 333830^2/6378 2064D0* *2) ) 

PHI=PHI-I 180. /PI 
IRFG= INT( PIII) 

AMIN=( PHI- IDEC) 'CO. 

IMIN=INT( AMIN) 

SEC= (AMIN- 1 MIN) t-60 
ALAMDA= ALAMDA f" 180 /PI 
I DEG I s INT( ALAND A) 

AMIN=(AI AMI) A- IDEG I ) 160 
I MIN I = I NT( AMIN) 

SFG 1 = ( AMIN- IMINl)<f60 

WRITE (9,111) IDEC, WIH.SEC, IDEG1, IMIN1,SEG1,HX,HY,KZ 
111 H)RMAf ( ’ PHI=’ , IX, 12, IX, 12, IX, F6 3,5X, ’L4HDA= ’ , IX, 13, IX, 12, 1X,F6. 
13,/,’ COMPUIEI) El EVA f IONS* ’ ,/, ’ H( X) = ’ ,F10.6 , * KM H( Y) = ’ ,FI0 6, ’ 
2 KM H( Z) = ’ , F10 6, ’ I C1<1' ) 

999 SfOF 
END 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

PROGRAM TO COMPUTE THE ELLIPSOIDAL ARC DISTANCE GIVEN THE 
LATITUDE AND LONGITUDE OF TWO TERMINAL POINTS. WRITTEN BY 
BRUCE SCIIENCK, APRIL 1978. 


INPUT TO THE PROGRAM CONSISTS OF THREE CARDS FOR EACH LINE C 
LENGTII CALCULATED THE FIRST CARD OF EACH SET IS A HEADER CARD C 
THE CONTENTS OF THIS CARD WILL BE PRINTED BEFORE THE CAI CHEATED C 
LINE LENGTH IN THE OUTPUT. THE SECOND CARD OF EACH SEI CONTAINS C 
THE LATITUDES OF THE TERMINAL PO INI'S IN DECREES, MINUTES, AND C 
SECONDS, IN AN 13 , IX, 12, IX, F3 S , IX, 13, IX, 12, IX, F8 5 FORMAT THE C 
THIRD CARD OF EACH SET CONTAINS THE LONGITUDES OF THE TERMINAL G 
POINTS IN THE SAME FORMAT AS THE LATITUDES THE THIRD CARD OF C 
THE FINAL SET DATA SHOULD BE FOLLOWED BY A BLANK CARD C 

OUTPUT CONSISTS OF EACH HEADER, FOLLOWED 1!Y EACH CALCULATED C 
El L IPSO I DAL ARC DISTANCE C 

C 


CCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCLCCCCCCC 
IMPLICIT REAL- 1 6 (A-H.O-Z) 

DIMENSION XX( 20) , LAT DEG( 2) , LATMINt 2) , SECLATl 2) .L0NDECC2) ,I0RHIN(2) 
1 , SECLONI 2) ,PHI(2) ,W(2) ,AN(2) , ALAMDA( 2) 

DATA RH/6362 0D0/,PI/3. 14 1592653S898D0/, E2/0 0067686581)0/ , A/637B 2 
1064D0/ 

110 CONTINUE 

READ (8,100) XX 

100 FORMAT (20A4) 

WRITE (9,100) XX 

READ (8,101) (LATDEGC I) , LATMINC I) ,SECLAT( I) , 1-1,2) 

READ (8,101) (L()NI)EC( 1) .LONMINC I) ,SLCLON( I) , 1=1,2) 

101 FORMAT <2( 13, IX, 12, IX, 18. 5, IX)) 

DO 102 1-1,2 

PH I ( I ) = ( SECLAT( I ) /360O +LATMINC D/60 +LATDEG( I) ) -I PI/ 180 
ALAMDA( I) = (SECLON( I)/3600.+L0NMIN( D/bO +LONDEG( I))«M/180. 

IF (PHI(l) EO 0 0 AND ALAMDAC 1) EG 0.0) CO 10 999 
W< I)=DSQRT( I D0-E2 '•DSIN( PHI CD) M2) 

AN( I) =A/W( I) 

102 CONTINUE 

DI,AMDA= DADS ( ALAMDA( I ) -ALAMDA< 2) ) 

DC=DSQRT( 4 BOCAN( 1) i AN(2) N)COS(PHI( 1) ) !DC0S(PHI(2) ) CDS 1 N ( DLAMDA/2 . 
1)1I2KAN( 1) cDCOSd’HK 1) )-AN(2>-KDC0S(PHI(2) ) > I c2+( 1 -E2) 1 l2MAN( 1) I 
2DSIN(PHI( 1) )-AH(2) CDSIN(PHI(2) ) )-( C2) 

DA=I)GH DC C C3/( 24 1 RIIJ . 2) 

WRITE (9,103) DA 

103 FORMAT (’ ELL IPS I0DAL DISTANCE =’,F10 6,’ KM’) 

GO TO 110 

999 STOP 
END 


nnono 
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CCCCCGCCCCCCGGCCCGCCGCCCCCCCGCGCCCCCGCGCGCCGGCGCCCCCCGGCCCCCCCGCGCCGCCGC 
C 

C PROGRAM TO COMPUTE REFRACTIVE NUMBER OF ATMOSPHERE 5 

C WRITTEN BY BRUCE SCHENCK, OCTOBER 1977 
C 

G THIS PROGRAM COMPUTES THE REFRACTIVE NUMBERS, N, OF THE 

G ATMOSPHERE AT POINTS OF MEASURE!) TEMPERATURE, BAROMETRIC 

G PRESSURE, AND HUMIDITY. THE PROGRAM THEN COES AHEAD WITH A LEAST 

G SQUARES METHOD TO MAKE A POLYNOMIAL MODEL OF THE ATMOSPHERE, AND 
G THFN COMPUTES THE MEAN REFRACTIVE NUMBER OF THE ATMOSPHERE BE- 
C TWEEN THE ENDPOINTS THE STANDARD ERROR OF A MEASUREMENT IS ALSO 
C COMPUTED AT THIS TIME THE LAST PART OF THE PROGRAM COMPUTES 
G WEIGHT AND CORRELATION NUMBERS OF THE POLYNOMIAL COEFFICIENTS 

G FROM THESE NUMBERS THE STANDARD ERROR OF THE FUNCTION IS COM- 

G PUTED ALL COMPUTATIONS ARE DONE IN DOUBLE PRECISION THE PRO- 
G ‘ GRAM STARTS BY SOLVING FOR A POLYNOMIAL WITH THREE UNKNOWNS, AND 
C KEEPS LOOPING THROUGH A POLYNOMIAL WI IH 20 UNKNOWNS 
C THE FIRST DATA CARD IS A HEADER UPON WHICH ANY INFORMATION 

C CAN BE SUPPLIED TO BE PRIN1ED AT THE TOP OF EACH SECTION 01> OUT- 

G PUT. THE SECOND DATA CARD CONTAINS "N INPUT" IN COLUMN *0 

C "N INPUT" TELLS THE PROGRAM WHAT KIND OF INPUT DATA WILL BE SUP- 

C PLIED N INPUT- 1 INDICATES THAT THE INPUT DATA CONSISTS OF AITI- 
C TUDES AND PREVIOUSLY COMPUTED REFRACTIVE NUMBERS I OR EACH 

C ALTITUDE NIHPUT=2 INDICATES THAT THE INPUT DATA CONSISTS OF AL- 

O TITUDES, DRY BULB TEMPERA! UUES , BAROMETRIC PRESSURES, AND WET 

C BUI 1) TEMPERATURES. THE THIRD DATA CARD CONTAINS "NO" IN COLUMNS 

C 1-3 "NO" IS THE NUMBER OF OBSF.RVED ATMOSPHERIC POINTS, AND CAN 

C TAKE ON ANY VALUE THROUGH 200 THF REST OF l'HE DATA CARDS CON- 

C TAIN THE OBSERVED ATMOSPHERIC DATA. IF NINPUT=l COLS 1-7 CON- 

C TAIN THE ALTITUDES, H IN KM., IN AN F7.0 FORMAT, COLS 8-15 CON- 

C TAIN THE REFRACTIVE NUMBERS, EH, FOR EACH POINT IN AN F8 0 

C FORMAT IF NINFUT=2 COLS, i-7 CONTAIN THE ALTITUDES IN AH F7 0 

C FORMAT, COLS 9-12 CONTAIN DRY BULB TEMPERATURES, 'I'D IN DEG C, 

G IN AN I' 4 0 FORMAT, COI S 14-20 CONTAIN BAROMETRIC PRESSURES, PR 

C IN MILLIBARS, IN AN 17 0 FORMAT, COLS 22-23 CONTAIN VET BULB 

C TEMPERATURES, TV IN DFG C, IN AN FI 0 FORMAT 

C THE OUTPUT CONSISTS OF THE HFADER FROM DATA CARD AT THE 

C TOP OF EACn SECTION, FOLLOWED BY "N", THE NUMBFU OF UNKNOWNS IN 
C THE POLYNOMIAL IN THAT SECTION NEXT IN THE OUTPUT IS THE POLY- 
C NOMIAL UNKNOWNS THAT WFRE SOLVED FOR, FOLLOWED BY THF ALTITUDES, 

C OBSERVED REFRACTIVE NUMBERS , REFRACTIVE NUMBERS CALCULATED FROM 
G THE POLYNOMIAL, AND THE RESIDUALS, N, OES-N , ABCDF T THE FINAL 

C PART OF EACH SECTION OF THE OUTPUT IS MADE UP OF THE SUM OF THE 

G SQUARES 01 THE RESIDUALS, SUM W, THE STANDARD ERROR OF ONE MEA- 

G SUREMENT, MU, THE MEAN REFRACTIVE NUMBER, NBAR, THE QUANTITY, 

G SUMNN, AND THE STANDARD ERROR OF THE I UNCTION, SIGMA NBAR 
G 

GCCCCCCCCCCGCCCCCCGCGCGCCCCGGCGCCCCCCCCCGCCCCCCCGCGCCCGGCGGCGCCGCCCCCCCC 

C 

THIS SECTION INITIALIZES SOME VARIABLES AND HEADS THE INPUT 
DIMENSION XLINLII2) 

DOUBLE PRECISION DSQRT, DLL, HC 200) ,EN( 200) ,D( 20,20) ,Q( 20) , 

1V<20> , TEMP, QUOT, BIG, SUM, ENBAR( 200) , V, AAMU,VV(200) ,BAII,H2,H1 ,DIE 
2.EI20) , VA,CN,CA, SUMNN, AMNH,F(20, 30) ,Z(2G) ,T(20) , RH( 20) , VI ( 20 
0) , YC210) , WW(20) ,AIC,B(20) , TD(200) ,PR(200) ,TU(200) ,EP(200) ,Eril(200) 
NLIMIT=20 
N=3 

READ (0,199) (XLINEC I) , 1=1 , 12) 

199 FORMAT ( 12A6) 

READ (8,161) N INPUT 
161 FORMAT (7X, ID 
READ (0,160) NO 
160 FORMAT ( 13) 
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IF (NINPUT .EQ 2) GO TO 162 
READ (8,100) (H( I) , EN( I) , 1= 1 , NO) 

100 FORMAT <T12,F7.0,T43,F5.0) 

GO TO 666 

162 READ (0,163) < H( I) ,TD( I) , PR( I) ,TW( I) , 1= 1 , NO) 

163 FORMAT <F? 0,IX,F4 0, 1X.F7 0,1X,F4 0) 

C*** THIS SECTION COMPOTES N FROM OBSERVED TEMPERA'tTIRES AND PRESSURES 
C*I1 US INC THE FOLLOWING FORMULAS s 

CS*l= E’ = 7 04623+0 10503 KT( WET )+0 0313501 T< NET) M-2 

C-i *■> E=E’-0. 00066 1(1 0+0 00 1 5 i T( WET) ) rPl ( T( DRY) -T( WET) ) 

CSU N= ( 300 . 2 I P-4 1 . 8 Mi) /( 3 709 i.T( DRY) ) ; T( DRY) IN DEG K 

DO 164 1=1, NO 

EPRC I) =7.O4623D0+O 195031001:™ D+O.O31358D0I I’W( I) 1*2 
EP( I ) = EPR( I)-0 00066D0 !.( 1.0+0 00115D0m/( I) ) I PRC I)*(TD( I)-TW( I)) 
TD( I) = TD( D+273 I5D0 
CTT* = = = = > NOTE <= = = = 

C*1 k IN THIS FORMULA 300 2 IS THE GROUP INDEX OF REFRACTION FOR A HE-NE 
C 1:1 1 LASER IF A DIFFERENT WAVELENGHI RADIATION IS USED THAT C0EFF1- 
CIA k CIENT MUST BE CHANGED ACCORDINGLY 

164 EN(I) = (300 2D0I.PIK I)-41 ODO I EP( I) ) /( 3 709D0-I TD( I) ) 

666 CONTINUE 

THIS SECTION INITIALIZES MORE VARIABLES 
V=0 

DNO= DFLOAT( NO) 

U=DFLOAT( N) 

NLESS1=N-1 
WRITE (9,199) KLINE 
WRITE (9,122) N 
122 FORMAT (/, ’ N= ’ , 13) 

DO 102 1=1, NLIMIT 
DO 102 1=1, NLIMIT 
102 D( I , J) =0 

C*** THIS SECTION SETS UP THE NORMAL E0U4TI0NS MATRIX. 

D( 1, 1)=DN0 
DO 501 J=2,N 
DO 501 1=1, NO 

501 I)C 1 , ,J) =IK 1, ,T)+H( Di-WJ-l) 

DO 502 K=2,N 
DO 502 1=1, NO 

, 502 D(K,N)=D(K,N)+H( I) miC+N-2) 

DO 500 1= 1 , NLESS1 
DO 500 J=2, N 
500 D( 1+ 1 , J- 1) =D( I, J) 

DLL=0 

DO 108 1=1, NO 
108 DLL= DLL+EN ( I ) * S 2 
DO 105 1=1, NLIMIT 
105 W( I)=0 

DO 503 J= 1 , N 
DO 503 1=1, NO 

503 W(J)=W(J)+EN( I) UK I)IS(J-l) 

DO 505 1=1, N 

505 WW( I) = W( I) 

DO 504 1=1, NLIMIT 

504 Q( I) =0 

Cl- IT this SECTION CONSISTS OF A GUASSIAN ELIMINATION PROCESS TO SOLVE 
Cl II THE NORMAL EQUATIONS MATRIX FOR THE POLYNOMIAL COEFFICIENTS 
IF (N ,NE. 1) CO TO 4 
IF (D( I, I) EQ. 0 > GO TO 3 
Q( I)=W(1)/D( 1,1) I (- 1 ) 

CO TO 205 

3 CO TO 203 

4 CONTINUE 

DO 13 1=1, NLESS 1 
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BIG=ABS(D( I, I) ) 

L= I 

I PLUS 1= 1+1 
DO 6 J= IPLUS1 , N 

IF ( ABS( D( J, I ) ) .LE BIG) GO 10 6 
BIG=ABS(D( «J, I)) 

L= J 

' 6 CONTINUE 

IF (BIG .NE. 0 ) GO TO 8 
CO TO 203 

8 IF (L EQ I) GO 10 11 
DO 10 J= 1 , N 
1EMP=D( L,.l) 

DC L, J) =D( I, J) 

10 IK I, J)=TEMP 
TEHP=W( L) 

W(L)=W( I) 

W( I ) =TEMP, 

11 DO 13 J= IPLUSI.N 
0U01=DCJ, I)/D( 1,1) 

DO 12 K= I PLUS 1 ,N 

12 D(.J,K)=D( J.fO-dUOTfcDC I.K) 

13 W( Jf)=WC J)-QUOTiW I) 

If (D(N,N) .NE. 0 ) GO TO 15 
GO TO 203 

15 a<N)=U( IO/D(N,N) 

I = N- 1 

16 SUM= 0 . 

IPLUS 1=1+1 

DO 17 J= IPLUSI.N 

17 SUM=SUM+D( I, J) tOC J) 

tt( I) = (W( I) -SUM) /DC I, I) 

1 = 1-1 


203 

204 

205 
107 


CN'+'l' 
C=( KJ 

123 


124 

120 

119 

Cl ** 
C*+^ 

117 


IF ( I GT. 0) GO TO 16 
GO 10 205 
WRITE (9,204) 

FORMAT ( ’ ! ! (-ERROR M (.= = > IN CORRELATE MATRIX’ ) 

GO 10 999 
WRITE (9,107) O 

FORMAT </, ' A= ’ F 1 5 3,3X, *B=’ ,F15.3,3X, ’ C= ’ ,F15.3,3X, ’ D= * ,F15.3,3X, 
1 * E= ’ , F 1 5 3,//,’ F=\F15 3,3X, ’G= ’ ,F15 3, 3X, ’ H= ’ ,F15 3.3X, ’ 1= ’ ,FI5 
23, 3X, * J= ’ , F15 3 , 3X, // , ’ IC= ’ , F15 . 3, 3X, ’ L= ’ , F15 3 , 3X, ’ M= ’ , F15 3.3X, ’ 
3N= ’ ,F15 3,3X, ’0= ’ ,F15 3,//,’ P=’,F15 3,3X, ' Q= ’ .F15 3,3X, *R= ’ ,F15.3 
4, 3X, ’ S= ’ , F15 3, 3X, *1- * , F15 3,/) 

THIS SECTION COMPUTES N FROM 1 HE POLYNOMIAL AND THE RESIDUALS, 

N.OBS-N, ABODE. T 

DO 123 1=1, NO 

ENBARC I)=0 

DO 120 1=1, NO 

DO 124 M= 1 , N 

F(M)=Q(M) t H( I) f^(M-l) 

ENBARC I ) =ENBAR( I ) +EC M) 

VV( I ) =EN( I ) -ENBAR( I) 

WRITE (9,119) (HC I) ,EN( I) ,ENBAR( I) ,VV( I) , 1=1, NO) 


1 16 

€** C 


FORMAT (’ DATA. II 

1/,99(F1G 5 , F10. 1 , F10 I.F10.3,/)) 
THIS SECTION COMPUTES SUM VV AND 
MU=SQRT( SUM W/< NO-N) ) 

DO 117 1=1, NO 

V=V+( ENBARC I)-EN( I)) ! (-2 

AANU=DSQRT( V/(DNO-Ui ) 

WRITE (9,116) V, A AMU 

FORMAT (’ SUM W (FROM DATA) = ’ ,F1G 

THIS SECTION COMPUTES NBAR BY 


N, OBS 
MU BY 


N , ABCDE 


RESIDUALS’ 


3,/,’ MU (FROM DATA) = ‘ , F I 0 3) 



C-M-f NBAR=A+(H2I l'2-Hm2)/CH2-Hl).f'B/2 +( H2 U 3-Hi t T3)/( H2-H1 ) *C/3 +. 
C R . +(H2l-fN-Hl MN)/(H2-Hi> fcX/N. 

H1=H( 1) 

H2=H( NO) 

DIF= AUS( H2-H1 ) 

BAR=0 

DO 600 1C=1,« 

AIODFLOA1 ( K) 

B( IO = AI5S( H2 K l-K-Hlw A K) /DIF MH K) /ML 
600 BAR=BARiB(IO 

WRITE (0,121) BAR 
121 FORMAT (’ NBAR- ’ , F8 3) 

C*tl THIS SECTION SFTS III* THE WEIGHT AND CORRELATION NUMBERS MATRICES 
DO 710 JIC= 1 , N 
DO 301 1=1, N 
DO 301 J= 1 , N 

301 F( I , J) =0. 

F( 1, 1)=DN0 
DO 302 J=2,N 
DO 302 1=1, NO 

302 F( 1, I) =H( I) ir( J-l)+F( 1,J) 

DO 303 K=2, N 

DO 303 1=1, NO 

303 F(K,N)=HC m I ( K+N-2) +F( IC, N) 

DO 304 1= 1 , NLESS1 

DO 304 1=2, N 

304 HI+1, I- 1 ) =F( I,J) 

DO 309 1=1, N 

Z( 1)=0 
309 T( I)=0 

T( .110 = 1 DOO 

CW f THIS SECTION CONSISTS OF ANOTHER GAUSSIAN ELIMINATION PROCrSS TO 
C-N* SOLVE I- OR THE WEIGHT AND CORRELATION NUMBERS 
IF (N NE 1) GO TO 34 
IF ( F( 1,1) 1-Q 0 ) CO TO 53 

Z< I)-T( D/IC 1, 1) I (-1 ) 

GO TO 705 

53 GO 10 703 

54 CONTINUE 

DO 63 1=1, NLESS 1 
B1C=ABS(F( I, I) ) 

L= I 

I PLUS I = 1+1 
DO 56 ,J= I PLUS 1 , N 

IF (ABS(F(.J, I) ) LE BIG) GO TO 56 
BIG=ABS(MJ, I) ) 

L=J 

56 CONTINUE 

IF (BIG NE 0.) GO TO 58 
GO TO 703 

58 IF (L Eft I) GO TO 61 
DO 60 J - 1 , N 
TEMP=F( L, J) 

F(L, J)=F( I , J) 

60 F( I , J)=TEI1P 
TEMP= T( I ) 

T( L) = T( I) 

T( I ) =TEflP 

61 1)0 63 1= IPI UW1 ,N 
ttUOT=F( J, I)/F( 1,1) 

DO 62 IC= I PLUS! , N 

62 F( 1, 10 =F( J , K) -QUOTTFC 1 , IO 

63 T( J ) = 1 ( J ) -UUOT* l’( I ) 

IF (F(N,N) NE 0 ) GO 10 65 
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GO TO 703 

65 Z(N)=T(N)/F(N,N> 

1 = N- 1 

66 SUM=0 
irLUSl= 1+1 

DO 67 .1= IPLUS1 , N 

67 S1W=SUH+F( I,J) l-Z(J) 

Z ( I) = (T( I) -SUM) /F( I, I) 

1 = 1-1 

IF ( I GT 0) GO TO 66 
GO TO 705 
703 I /HUE (9,2010 
GO 10 999 
705 CONTINUE 

Ctf M. THIS SECTION COMPUTES SUM NN AND SIGMA NBAR BY 
C%f+ SIGMA NBAR=MUiS<lRT( SUM NN) . 

1)0 709 M=JK,N 
KK= J K— 1 

709 Y( M+KKI N-KIO>( KK+ 1 ) /2) =Z( M) 

710 CONTINUE 

no 311 I = 1 , N 

311 HH( I ) =ABS( H2 1 ■* I-Hlf' 1 D/DIF/I 
"WA=0 

DO 312 1=1, N 
KA= I- 1 

UK I)=HH( I)+^2W I+KAlN-ICAT(KA+l>/2) 

312 WA=WA+WI(I) 

CN=0 

DO 313 1= 1 ,NLESS1 
KB= I- 1 
MM= 1+ 1 

DO 313 J=MM,N 

CA=2 DOO KHH( I) IHH(J)+Y( J+KB*N-KB+(ICB+l)/'2) 

313 CN=CN+CA 
SUMNM=CNH WA 

IF (SUMNN LT 0 0) GO TO 990 
AHNN= A AMU . I)S(1RT( SUMNN) 

NR I TE (9,130) SUMNN , AMNN 

130 FORMAT (* SUM NN=’,F10 0,/,’ SIGMA NBAR=',F10 3,//) 

GO TO 992 

990 WRITE (9,991) SUMNN 

991 FORMAT (’ SUM NN= ’ ,F10 3,/, * SIGMA NBAR HAS BLOWN UT’> 

992 CONTINUE 
N=N+ 1 

IF (N LE NLIMIT) GO TO 666 
999 STOP 
END 



